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bv Clavton Walnum 

Over the last couple of months, the ANA- 
LOG reader surveys have been flooding in, 
along with many letters responding to the 
February '89 editorial. For those of you who 
may have missed that issue, the subject of the 
editorial was the future direction of ANA- 
LOG. I had stated that there was little new 
ground to cover and that I wondered whether 
readers— especially the newer readers- 
would like to see some of the older topics 
covered again. I also suggested that it might 
be a good idea to start reprinting Tom Hud- 
son's old Boot Camp columns, because they 
are the best assembly-language tutorials avail- 
able anywhere, and they are now all out of 
print. 

When I made these suggestions, I really 
had no idea that I would be opening such a 
floodgate of enthusiasm. Judging by your let- 
ters (a few of which are printed in this 
month's Reader Comment), virtually all of 
you would like to see the Boot Camps reprint- 
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ed. Also, the vast majority of you not only 
wouldn't mind seeing the older topics covered 
again, but almost insist upon it. I would es- 
timate that at least half of the letters we 
received were from people who had been 
reading ANALOG for only the last couple 
of years, and so had missed a lot of impor- 
tant material. These letters informed me that 
new owners of Atari 8-bit computers are hav- 
ing a tough time finding the information they 
need to get the most from their machines. 

Many people even asked that specific arti- 
cles, other than the Boot Camp series, be 
reprinted. I immediately envisioned a new 
department called ANALOG Classics where 
now out-of-print programs— the best from the 
past— could be reprinted for our many read- 
ers who may have missed them. If you would 
like to see this new department in ANALOG, 
write to me at the Manchester, Connecticut, 
address and let me know. 

At any rate, by popular demand, this month 
we begin to reprint the classic Boot Camp 
series, starting with Column 1 published way 



back in Issue 13 (the cover date was Septem- 
ber 1983)! This month also brings the debut 
of a new column with an old title: BASIC 
Traitiing will tell you everything you want to 
know about programming your Atari in BA- 
SIC, starting with the simple essentials and 
advancing to the more complex topics like 
player/missile graphics, animation and the 
use of VBIs and DLIs. 

Those of you who have been with us from 
the beginning and have no need for the novice 
material still have much to look forward to. 
We will continue to pack each issue with 
many exciting new programs and articles, 
each designed to make your Atari comput- 
ing experience as rewarding as possible. 

We'd like to thank all who responded with 
suggestions and ideas. Each letter was care- 
fully read and considered. It was extremely 
gratifying to see that the Atari 8-bit commu- 
nity is still very much alive— and more im- 
portantly, is still willing to make an effort to 
see that their machines remain viable alter- 
natives for the home-computing enthusiast. tR 
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I am writing in response to Clayton Wal- 
num's editorial in your February 1989 issue. 
J have Dwjaed my computer, a 130XE, since 
December of 1985. The first issue of ANA- 
LOG I ever bought was Issue 43 dated June 
'86. I subscribed shortly after and still use 
one of the programs in that issue weekly, 
namely "Home Shopper" by Matthew 
Ratcliff. 

Up to that time, I relied on commercial 
software and was trying to learn BASIC. I 
picked up hints and got great help from 
studying your type-in programs. At that time, 
Boot Camp was just something I skipped 
over. 

As I progressed, I started to master some 
of the things I could do with my machine. 
I discovered Mapping the Atari through 
numerous references to it and dug deeper into 
my computer. Still, there was little help for 
the real beginner. Finally, I wrote some pro- 
grams using DLIs and only recently got a 
Player/Missile program running. 

As I progressed, it was obvious I needed 
to learn machine-language too. I bought the 
Atari Assembler/Editor and Machine Lan- 



guage for Beginners, but again I was on my 
own. The book did not describe how to ac- 
cess the lOCB blocks on the Atari or explain 
the use of all the assembly instructions avail- 
able. I dug out my old ANALOG issues and, 
by studying the machine-language listings, 
was able to get screen, disk and printer ac- 
cess running. But I am still nowhere near 
understanding all I can do or how I can do 
it with assembly language. I finally purchased 
a MAC/65 cartridge just so I did not have to 
convert your programs to make them run with 
my Assembler/Editor. 

So here I am. Forty-one years old and feel- 
ing like I'm in high school again trying to 
learn algebra, only I don't have a teacher to 
run to when I get stuck. Would I like to see 
Boot Camp reprinted? You bet I would! Af- 
ter all, I'm missing 30 issues worth of infor- 
mation! Would I like a review of advanced 
BASIC programming techniques too? Yes, 
Sir! 

I vote for reprints of Bool Camp, and while 
you're at it, reprints or new articles on BAS- 
IC for your new readers. 

Finally, I'd like to thank ANALOG for 
hanging in there through some tough times 
and providing the best and most useful pro- 
grams for my Atari 8-bit.— David M. Schoch 

Scotia, NY 



I just received the February '89 issue in the 
mail. It's a real piece of art. The use of color 
in the titles and graphics of each of the arti- 
cles really makes your publication stand out 
from the other magazines. After reading the 
editorial regarding the future direction of 
ANALOG Computing, I realized that I had 
better write and express my opinions on what 
I'd like to see in print. 

Although I don't own an Assembler/Edi- 
tor, I would like to see you reprint all of the 
Boot Camp tutorials. That would inspire me 
to buy an assembler and learn assembly lan- 
guage. 1 have been faithfully following your 
Game Design Workshop and have learned a 
lot about BASIC programming from those ar- 
ticles. More BASIC tutorials would be ap- 
preciated. —Kevin B. Dickinson 
East Meadow, NY 



I would like to see the early Boot Camp 
articles reprinted. I started my subscription 
to your magazine about a year ago and real- 
ly enjoy it. But I have just become interested 
in assembly language and would really like 
to see the articles explaining assembly lan- 
guage that I missed. —Shane Graber 

Stryker, OH 

I would be very interested in seeing reprints 
of your magazine's fantastic Boot Camp 
columns. I have only been a subscriber since 
February 1987, and have missed many of 
them. 

As an idea for new topics to be covered, 
have you considered writing technical tutori- 
als on programming the various configura- 
ble disk drives (XF551, Happy 1050, U.S. 
Doubler 1050, Indus GT). I would be very 
interested to learn how to do this. I would also 
be interested in how the Ultra-speed I/O rou- 
tines work for these devices. I would like to 
write a high-speed, self-booting sector copi- 
er for the XF551, and I need to know the for- 
matting and sector-skew commands. 

I always look forward to receiving the next 
issue of ANALOG, and I hope my idea has 
helped you. —Robert Beauchea 

Edison, NJ 

Wow! When we suggested the possibility of 
reprinting the Boot Camp tutorials we never 
imagined that the response would be so over- 
whelmingly favorable. The number of people 
who would like to see the series reprinted out- 
number those who don 't by about 20 to one. 
Clearly, there's only one thing we can do: 
reprint Boot Camp.' 

As for Mr Beauchea 's questions about 
handling the various disk drives and Ultra- 
speed I/O techniques, if there's someone out 
there who'd like to put the article together, 
we would certainly like to see it. 

Thanks to all of you who have responded 
to the February editorial and to those who 
have filled out the survey that appeared in 
that issue. It 's nice to know that 8-bit com- 
puter owners are still very interested in us- 
ing and learning about their machines. Your 
help will go a long way towards tnaking 
ANALOG Computing the type of magazine 
you want. 
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Napoleon Wins Award 

Datasoft's strategy war game, Napoleon In 
Russia— Borodino 1812, has received the 
"Fire & Movement and Charles S. Roberts 
Award" for the best pre-20th century war 
game. The award was presented to the game's 
programmer, Steve Krenek of Krentek Soft- 
ware and is given "to honor significant 
achievements in the field of war-gaming." 

Napoleon In Russia recreates the famous 
battle outside of Moscow and includes such 
features as control of artillery, cavalry and in- 
fantry; detailed scrolling maps; and the han- 
dling of such battle variables as morale, 
fatigue and speed of movement. The program 
is published by IntelliCreations and is priced 
at $24.95. 

IntelliCreations, Inc 
19808 Nordhoff Place 
Chatsworth, CA 91311 
(818) 885-6000 

CIRCLE #136 ON READER SERVICE CARD. 



Color Diskettes 



If you've been wondering how to separate 
your utility programs from your game pro- 
grams from your business programs, Memo- 
rex may have the answer for you. This large 
supplier of floppy-disk products has an- 
nounced the availability of color disks. 
Designed to help you spot the disks you want 
in a large file, the disks come in a 10-pack 
including two each of blue, green, yellow, 
orange and red disks. 

Also now available from Memorex is a 
50-pack (not color) of DS/DD 5.25-inch 
disks for those who need to buy their disks 
in large quantities. 

Memorex 

2400 Condensa Street 
Santa Clara, CA 95051-0996 
(408) 957-1000 

CIRCLE #197 ON READER SERVICE CARD. 
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Power Supply Plans 

A battery backed-up power supply can pre- 
vent you from losing important data should 
a power outage occur during a computing ses- 
sion. Most of these units are fairly expensive, 
but now 8-bit Atari users have a low-cost al- 
ternative. 

Technitron has put together complete plans 
for building a battery backed-up power sup- 
ply for your 8-bit Atari computer, using read- 
ily available Radio Shack parts. The package 
includes complete plans, schematics and parts 
list and is priced at $4. (Note: This project 
is recommended only for those with electron- 
ics experience.) 

Technitron 
P.O. Box 1033 
Wilkes-Barre, PA 18702 

CIRCLE #198 DN READER SERVICE CARD. 



Multiple Disk Formatter 

Most computer owners are well acquaint- 
ed with the chore of formatting a new box 
of disks. Atari DOS, with its one-at-a-time 
approach, just isn't suitably designed for this 
chore. But don't despair! Help is on the way. 

Just released from Helpways is a handy 
utility program designed to make the format- 
ting of multiple disks a less painfiil chore. Au- 
toPrep will format a quantity of disks in either 
single or dual density, as well as write your 
favorite DOS to each of them. The program 
is priced at $17.95. 

Helpways 
P.O. Box H 
Rochester, NY 14623 
(716) 334-3928 

CIRCLE #199 ON READER SERVICE CARD. 



Atari Show! 

The Michigan Atari Computer Enthusiasts 
(MACE) has announced The Michigan Atari 
Computer Expo to be held on May 6 and 7, 
1989 at the Detroit Metro Airport Hilton, lo- 
cated in Romulus, Michigan. MACE, one of 
the nation's oldest and largest Atari Users' 
Groups, was the first club to sponsor an 
Atari-only show with the AtariFest of 1984. 

"We plan on filling over 40 booths with de- 
velopers, retailers and dealers— both large 
and small," said Pattie Rayl, MACE Coor- 
dinator. "This show is planned with the Atari 
user (and users' groups) in mind. Whether 
you have an 8-bit or an ST, you'll find lots 
to interest you." 

The last show in Detroit area, the MAGIC 
Show, was praised by exhibitors and atten- 
dees alike, and MACE plans to continue the 
tradition. 

For information on MACE, the Michigan 
Atari Computer Expo, booth prices, admis- 
sion rates and discount airfare, call Pattie Rayl 
at (313) 973-8825 or write for an exhibitor 
or Users' Group package at 3487 Braeburn 
Circle, Ann Arbor, MI 48108. 

CIRCLE #2DD ON READER SERVICE CARD. 



by Arthur Leyenberger 

Ever since I can remember, I've loved Although computers are increasingly finding 
"neat things." To a young boy 30 years their way into homes each year, people who 
ago, a neat thing was a two-foot-tall own computers at home are a minority. Fur- 
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Consumer 
EleOronics 



honing one's reaction tunes (racing), patience 
(model building) and mechanical ability 
(working with motors, gears, etc.). In my 
case, it also gave me an outlet for my en- 
trepreneurial skills since I would "soup-up" 
other kids' cars for a small price. 

I guess some things never change. I still 
love neat things, but the category has been 
expanded to include computers, gadgets, 
electronics, audio, video and on and on. If 
I had to sum it up, I'd have to admit that I 
am in love with technology. It's safe to as- 
sume that the readers of ANALOG also share 
this feeling to one degree or another. 

Over the last ten years, the business com- 
munity has certainly embraced computers 
even from the early days of the Apple II and 
Visicalc. Not so the home computer market. 



computers are an even smaller minority. 

Nonetheless, the very fact that you own an 
Atari home computer, are an active user and 
are reading this magazine right now, means 
that you understand, appreciate and enjoy 
technology and what it has brought forth in 
the way of consumer electronics. That is why 
you can appreciate the semi-annual Con- 
sumer Electronics Show. 

Consumer electronics is one of the largest 
industries in the United States, and the Winter 
Consumer Electronics Show (CES) in Las 
Vegas is the place to see the new products and 
technologies. Over 770,000 square feet (that's 
about 17 football fields) of exhibit space, 
spread across a half dozen locations, is avail- 
able for the some 90,000 attendees to view. 
The 1,400 or so exhibitors always hope that 
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their products will get the major attention 
during the four-day show. 

Every year CES attendees look for that one 
product or technology that will have con- 
sumers lining up to buy. After all, CES is a 
trade show where retailers, buyers and dis- 
tributors want to know what products will 
make them the most money. In past years 
such products as video recorders, home com- 
puters, video games, pocket TVs, Compact 
Discs and many others have been introduced 
and been tremendously successful with con- 
sumers. This year was no different as sever- 
al new product categories were seen. 

Personal Electronic Products 

This is a relatively new category of con- 
sumer products that includes everything from 
language translators to pocket spelling check- 
ers. One of the most useful products I saw 
in this category was Brother's P-Touch Elec- 
tronic Lettering System. Designed to be a 
hand-held alternative to those expensive and 
cumbersome professional lettering systems, 
the P-Touch produces lettering in a variety of 
colors, styles and sizes for virtually any ap- 
plication. 

The lightweight self-contained unit uses a 
thermal printing device for best character 
resolution and uses an LCD screen to display 
the label. A large rotating dial is used to enter 
each letter or character for the label, and once 
completed the 45 -character-maximum label 
can be edited before it is printed. The exist- 
ing label is not lost when the unit is turned 
off, and interchangeable ribbon/tape car- 



tridges are used for different colored labels. 

The Brother P-Touch is an easy-to-use 
labeling device that produces quality labels 
in five sizes and four styles. The labels are 
produced on self-adhesive strips that are easy 
to apply. It lists for $150, but I bought mine 
at a discount house for $99. Tape cartridges 
sell for about $10 apiece. 

Another electronic lettering system, called 
the HW-1 Digital Writer, was shown by Ca- 
sio, Inc. This product is somewhat different 
than the P-Touch in that it will print on any 
paper rather than just on strips of self- 
adhesive labels. 

After you type copy into the HW-1, you 
slide the hand-held printer wand (you hold 
it like a pen) from left to right on paper to 
print. The unit beeps when printing is com- 
plete. It holds up to 2,066 characters and runs 
on rechargeable batteries— a full charge takes 
about eight hours. 

The battery charger and black ink ribbon 
cassettes come as standard accessories. Op- 
tional accessories include blue, red, gold and 
silver ink ribbons, and a RAM card that will 
hold up to 5,300 characters. The HW-1 offers 
a choice of eight different type styles and spe- 
cial effects and has a built-in phone directo- 
ry function that lets you store up to 272 names 
and phone numbers. 

The Casio HW-1 will print on any flat sur- 
face and also serves as a full-featured 10-digit 
calculator. It retails for $300. 

Sharp was showing the Wizard, a pocket 
electronic organizer. This $300 device con- 
tains all of the essential business tools such 
as appointment calendar, phone directory, 



notepad, calculator and world clock in one 
handy gadget. The sleek 4-inch by 6-inch unit 
weighs only eight ounces and has a built-in 
PC interlace to bi-directional load schedules, 
phone listings and documents from a personal 
computer. 

The Wizard has been available for about six 
months and has been a hot seller. Using a ver- 
tical format and an 8-line by 16-character 
LCD display, the Wizard is completely menu 
driven so that it is easy to use. It contains a 
32K memory, separate alpha and numeric 
keys for data entry, variable screen-character 
size and a 200-year calendar. 

One of the unique features of the Wizard is 
its ability to use plug-in IC software cards 
that, when slid into position, also double as 
a touch-sensitive panel for selecting the card's 
functions. Currently, three cards are availa- 
ble: a dictionary/thesaurus, a time- 
management system and an eight-language 
translator. Each of the cards is priced under 
$130. The Wizard can also be connected to 
peripherals such as printers, a cassette 
recorder or even another Wizard. 

Another personal electronic product is the 
Hexaglot language translator from Polyglot. 
This smartly styled product contains trans- 
lations for six different languages: English, 
Spanish, German, Italian, French and Por- 
tuguese. Simple to use, all you do is type in 
the word you want translated, in any lan- 
guage, and press the key corresponding to the 
language you want the word translated to. 

The Hexaglot also functions as several 
other devices as well. It contains a four- 
function calculator, a currency-exchange 
function and a multi-lingual dictionary for 
spell checking. In addition to translating in- 
dividual words from one language into any 
of the five other languages, the Hexaglot 
translates several words or a phrase at once, 
as long as the total number of characters is 
less than 128. 

The Hexaglot weighs a mere 2.5 ounces, 
measures approximately 5.5 by 3 by 0.75 
inches and has a two-line by 16-character 
LCD screen. The unit has a 60-key mem- 
brane keyboard, operates on batteries and has 
an automatic power-off feature. The Hexaglot 
retails for $186. 

Franklin Computer, makers of the Lan- 
guage Master series of hand-held spelling 
checkers, introduced the first speaking dic- 
tionary. The Language Master 4000 features 
an electronic dictionary, thesaurus and pho- 
netic spelling corrector that pronounces more 
than 83,000 words. Not only does it provide 
concise dictionary definitions but it also 
pronounces them correctly. 
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Useful for people who have difficulty 
pronouncing words, the LM-4000 will also 
be useful for people learning English as a sec- 
ond language. Simply type in a word the way 
it sounds and within seconds the LM-4000 
will display its definition, parts of speech and 
hyphenation points on a LCD screen. Press 
the SAY key and the unit's electronic voice 
pronounces the word. 

In addition to the above, the LM-4000 has 
a built-in vocabulary-building tutorial that 
features a list of 3,500 words frequently found 
on such tests as the SAT, GRE and GMAT. 
Students can view randomly selected words 
and at the touch of a key display their mean- 
ings. The new speaking dictionary includes 
a built-in speaker, volume control and head- 
phone jack. Retail price is set at $400, and 
the LM-4000 will be available this summer. 

Cobra Electronics was showing a unique 
answering machine. The Cobra Timekeeper 
is the first answering machine that offers a 
digital time stamp on each incoming message 
so that you know when and at what time the 
message was received. The $120 Cobra 
Timekeeper is a beeperless machine with 
multifunction remote control. The system is 
based on a single standard-sized cassette. 

As each message is received, the date and 
time are recorded. When you play your mes- 
sages back, a synthesized voice announces the 
time stamp after each message. Sounds like 
a useful product for someone who travels a 
lot and needs to know when their messages 
came in. 

kidio 

Here's a twist— or rather a marriage of new 
and old technologies. Finial Technology, Inc. 
has introduced an optical turntable that can 
play regular LP vinyl disks using a laser. 
Really, no kidding. Called the LT-1 Laser 
Turntable, this product really does play LPs 
without anything touching the grooves and 
causing further wear on the record. 

Not only is wear on the record eliminated 
but the audio quality is improved as well. 
With no tone arm and cartridge, there is no 
drag to cause any speed irregularities that can 
be heard as pitch changes. Further, without 
a tone arm, no motor noise is transmitted 
from the platter, resulting in no rumble. The 
whole thing makes more sense than it would 
first seem. 

The LT-1 consists of a lightweight turnta- 
ble system, tracking mechanism and 
computer-controlled laser optical assembly. 
Unlike conventional turntables, the platter 
does not need to be heavy in order to over- 
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come the resistance of the stylus dragging 
across the record surface. Speed accuracy is 
maintained by a closed-loop computer circuit 
that is updated 60 times per second. There 
is a variable speed control that the user can 
set between 30 and 50 rpm. 

The tracking mechanism is also microcom- 
puter controlled and ensures that even moder- 
ately warped disks can be properly played. 
Furthermore, the system memorizes bound- 
aries and times each cut. It also maintains a 
constant gap between the optics and the 
record surface with an accuracy equal to 
l/30th the thickness of a human hair. 

The record grooves are "read" by the laser 
assembly, and since there is no physical con- 
tact, the grooves are scanned more than 40 
times the amount of a conventional stylus. As 
a result, more musical information is extract- 
ed from the grooves with an improvement in 
audio quality. In addition, the LT-l has a noise 
blanking circuit to reduce ticks and pops and 
an in-drawer cleaning system that keeps the 
optical assembly clean. 

The front loading Laser Turntable is fully 
programmable, and a display shows elapsed 
and remaining time for all cuts on the side. 
The LT-l is expected to be available by sum- 




mer 1989. 

Other audio products included a rash of 
portable cassette tape players, some new por- 
table CD players and all shapes, sizes and 
colors of boom boxes, many of which ap- 
peared to be created at the art deco school 
of design. Sony was showing several Disc- 
7oc^ey-brand carousel CD-changer models 
for the home as well as the car. Most of the 
home units feature Sony's five-disc revolv- 
ing carousel tray which lets you mix both 
5-inch and 3-inch CDs. A pair of models fea- 
ture a unique 10-disc magazine that lets you 
swap the 10-disc magazine between the home 
and car player. 

Quite a few companies were showing 
"combi" players, units capable of playing 
CD, CD-3, CD video and laser Disks. Since 
CD video discs cannot be played on a stan- 
dard CD player, a special player is required 
(the "combi" player) to play them. As you 
may know, CD video or CDV is an optical 
playback medium that looks similar to a com- 
pact disc except that the 5-inch CD video is 
gold colored to distinguish it from a CD. It 
offers 20 minutes of digital music and five 
minutes of regular, full-mofion video on one 
side of a disc. 



I guess the predictions that CDV would be 
a 1989 phenomenon is coming true. Whether 
it will be fully embraced by the electronics 
consumer will have to wait to be seen. 



From the halls of congress to retailers 
showrooms, the future of television is being 
hotly debated by industry experts, govern- 
ment officials, consumers and the press. The 
words heard everywhere are HDTV, which 
stands for high-definition television. Those 
same words were heard through the conven- 
tion hall at CES, especially at the booths of 
the major television manufacturers. 

HDTV technology, at least in the current 
version that will be made available in Japan 
by the end of the year, is incompatible with 
the existing NTSC broadcast standard. In 
fact, much of the debate and current research 
about HDTV centers on how the required se- 
cond augmentation channel necessary for the 
razor-sharp wide screen TV image will be 
delivered to the consumer. The choices in- 
clude normal broadcast, satellite, cable or 
some new fiber optic network. The telephone 
companies are especially interested in the lat- 
ter possibility for obvious reasons. 

Quality is one area where compromise may 
have to occur. The FCC seems to be head- 
ing in the direction of wanting any HDTV for- 
mat in the U.S. to be compatible with the 
existing NTSC broadcast standard. However, 
doing this may jeopardize the quality of the 
image. Viewing true HDTV, like the MUSE 
system about to be introduced in Japan, is an 
amazing experience. The picture quality is 
crystal clear and almost appears three- 
dimensional. 

In addition to wanting NTSC compatibili- 
ty, the FCC and Congress want the high- 
definition system to be American developed 
and sets manufactured in the U.S. A number 
of companies are proposing systems that are 
compatible, but the maximum resolution of 
these images are not as good as they could 
be. Regardless of the final system chosen, in- 
dustry experts predict that HDTV will arrive 
in the U.S. in the early 1990s. 

Equally important as the home entertain- 
ment aspect of HDTV is the potential use of 
it for a variety of other uses. From theatrical 
distribution of feature films to high-speed, 
high-quality color printing to video telecon- 
ferencing, HDTV promises to be a technol- 
ogy that will serve many purposes. 
Professional users will not settle for less than 
the highest quality picture possible. For ex- 



ample, HDTV could be used for telesurgery, 
but I know that I would not want an opera- 
tion where the doctor had to rely on anything 
less than the sharpest quality image. 

Anyone who has seen an HDTV display 
can't help but be excited about eventually hav- 
ing this technology in their home. Once the 
political and economic issues are sorted out, 
I too hope we end up with the best quality 
system possible. 

Another interesting, although not as prac- 
tical, new product was shown by Hitachi. It 
is a 5-inch color LCD TV for cars. The finy 
TV displays 115,000 pixels, delivers 480 lines 
of horizontal resolution and 240 lines of ver- 
tical resolution. It looks surprisingly good. 
The diminutive screen measures only 6.5 



inches wide by 5.7 inches high by 1.5 inches 
deep. 

The TV's tuner uses a dual antenna system 
with an arrangement of four separate anten- 
na elements that assures quality reception, 
even in a moving vehicle. An advanced sys- 
tem of antenna switching lets the TV receive 
broadcasts from the antenna with the stron- 
gest signal up to 60 times per second. 

Hitachi's "auto video" was designed 
primarily with the future of on-board navi- 
gation systems in mind, but it also functions 
as a normal TV. The small set includes A/V 
inputs for connecting external video sources 
such as VCRs or video games. The LCD 
color TV also has an infrared remote con- 
trol and an on-screen display. 




Although the color LCD TV was designed 
for the Japanese market and Hitachi has no 
current plans for U.S. introduction, it sounds 
like a great product to mount in the back seat 
to keep the little tykes occupied on those long 
trips. 

Toshiba announced and showed a new 
4-inch color LCD television called the 
LCD-048. The high-resolution screen incor- 
porates an active filter matrix with a thin-film 
transistor color filter that provides a bright, 
clear image. Resolution is 220 vertical by 480 
horizontal lines. 

Other features of the LCD-04S include au- 
dio/video input and output terminals, switch- 
able internal backlight for improved viewing 
under low-light conditions, earphone jack, 
telescoping antenna and a provision for an ex- 
ternal antenna, as well as electronic tuning 
and on-screen channel and volume settings. 
Pricing has not yet been established. 

Still Video 

Not "still video" (as in more information 
on video products) but still video (as in us- 
ing video technology for making still images 
or snapshots). Still-video cameras have been 
in development for several years and proto- 
types have been shown at CES in prior years. 
However, this was the first time that compa- 
nies like Canon, Sony and Olympus were 
showing actual production models. 

All still-video cameras use a 2-inch flop- 
py disk that stores 50 frames or images. Each 
image is stored as digital data and can be 
retrieved mstantly. Some companies like Can- 
on use the camera itself to play back the im- 
ages through a television whereas Sony and 
Olympus require separate players to view the 
image. 

Based on the Hi-Band video standard, all 
of these still-video cameras have the same 
quality pictures and basic features. All are 
capable of capturing images with up to 300 
lines of resolution. The magnetic disk used 
to store the electronic images is erasable and 
reusable and is compatible between all makes 
of still-video cameras. The major differences 
between different cameras are the particular 
features of each. Some have a built-in 
telephoto adapter while others have a macro 
adapter for close-up shots. 

Most of the cameras have a built-in flash, 
can take individual frames or multiple irames 
per second and are about the same size. Au- 
tomatic exposure and white balance are also 
standard features. Other features include self 
timers, rechargeable batteries and point-and- 



shoot ease of use. 

The Sony Mavica (an acronym for Mag- 
nefic Video Camera) MVC-Cl weighs just 
over a pound and measures 5 % by 2 '/4 by 4 '4 
inches and is designed to fit in the palm of 
the hand. The MVC-Cl includes a 15mm f/2.8 
fixed-focus lens that provides sharp images 
of subjects at a distance of 1.5m to infinity. 
The built-in flash is automatically activated 
in low-light conditions, and the camera is 
capable of shutter speeds from l/60th to 
l/50th of a second. 

In addition to single picture shooting, the 
Sony sfill-video camera offers continuous 
high-speed image recording at either four or 
nine frames per second. A "blank search" 
function automatically advances the disk to 
a blank frame so accidentally erasing an im- 
age is avoided (to erase a picture, the separate 



tures a built-in macro mode for extreme 
close-ups at 12 inches. Recording and play- 
back functions are all contained in the 
15-ounce body, and it uses a 11mm f/2.8 fixed 
focus lens. 

The Zap Shot can take pictures either in- 
dividually or at three images per second and 
contains a built-in self-timer. When taking 
pictures, you can let the camera automatically 
find the next highest blank frame, or you can 
manually set it to any frame you want. The 
Zap Shot will sell for under $1,000 and be 
available by the time you read this. 

Olympus was the third company showing 
a still-video camera, but it was still a proto- 
type. Like Canon, Olympus uses a separate 
playback unit for viewing the video images. 
Also, the company announced that they will 
have a stand-alone still-video recorder/player. 




playback adapter must be used). 

The playback adapter, the MAP-Tl is pow- 
ered by either batteries or AC and can use 
an optional wireless remote control for con- 
venience. The MAP-Tl also fiilly charges the 
camera in one hour. The camera will retail 
for $650, and the playback adapter will sell 
for $250. Both will be available by the time 
you read this. 

The Canon still-video camera is called the 
Zap Shot. In addition to the standard feamres 
like built-in flash, auto-exposure, etc., it fea- 



The Olympus V-100 is almost twice the 
weight of the other still-video cameras shown 
at CES, but the added weight means added 
features. It has the fastest continuous shoot- 
ing mode (15 frames per second), and the 
camera contains a built-in 9-27mm 3x pow- 
er zoom lens (equivalent to a 35mm camera 
49-147mm lens). The V-100 also offers auto- 
matic date recording (year/month/day) on the 
video image and automatic backlight ex- 
posure compensation. 

The V-200 AC-only playback unit also 
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offers unique features. Multi-screen playback 
allows 4,9, 16 or 25 pictures to be simultane- 
ously displayed on the screen at once. Digi- 
tal effects like negative reverse and digital 
solarization, adjustable intervals between in- 
dividual pictures (much like a slide projec- 
tor) and high-speed continuous viewing of 15 
images per second are possible. Other fea- 
tures include wireless remote-control oper- 
ation, single-track and all-track erase 
capability and on-screen display of date stamp 
and track number. 

The V-300 still-video recorder/player offers 
features aimed primarily at the professional 
user. The unit is compatible with many video 
sources such as external video cameras, 
VCRs, laser-disk players, etc., can record 
either continuously or individual images and 
has S-VHS (Y/C) type output connections. 
In addition, interval recording is possible 
from one second to 99 minutes. Interval play- 
back is also possible with a range of 1-99 
seconds. 

The V-300 also offers high-speed continu- 
ous playback at 2, 5 or 10 frames per second. 
Further, a prograrmnable playback function 
is provided and random access to any frame 
is possible. And, as if this were not enough, 
a wireless remote control is provided as stan- 
dard equipment. 

Olympus clearly has the professional or 
high-end user in mind with their line-up of 
still-video products. At press time, pricing 
and availability had not been established. 
However, Olympus representatives say that 
the products should be out sometime around 
the middle of the year. 

Home Automation 

Home automation is a relatively new 
product category. There are existing products 
that fall into this category such as smart secu- 
rity systems, automatic sprinkler systems and 
programmable AC outlets and switches. One 
problem with these products is that each com- 
pany has designed their own techniques for 
device control. As a result, products from one 
company will not work with products from 
another company. 

A small exhibit at CES was displaying a 
new home-automation standard designed to 
make the automated home a reality. This 
technology is intended to allow home enter- 
tainment products, major appliances, secu- 
rity systems and heating and air condition- 
ing equipment to work together by means of 
a standard bus. 

Called CEBus, it is an evolving Electron- 




Toshiba: LCS-048 Color TV. 



ic Industries Association home-automation 
standard. Using a CEBus system, you can 
choose which electrically powered products 
in your home you want to operate 
automatically— products as different as your 
TV, electric com popper, garage-door opener 
or computer. 

Another area where CEBus products and 
home automation in general will be useful is 
for people with disabilities. Disabled in- 
dividuals will be able to better control their 
environment with safety, security and con- 
venience. For example, a visitor at the door 
can first be identified and then let in without 
the person having to get up. Since the CE- 
Bus standard is flexible, new products can be 
designed especially for the elderly, bed- 
ridden or other people with special needs. 

More Calculators 

Hewlett-Packard makes the finest calcula- 
tors money can buy. They have been making 
calculator models for business, science, en- 
gineering and statistics since the early 1970s. 
Although their products don't compete with 
the kind that you buy at the supermarket, HP 
has broadened their line to now include low- 
end models that start at about $50 retail. 

Two new models were introduced at CES 
this year: the HP-lOB business calculator and 
the HP-20S scientific model. Celebrating 
their 50th year in business, HP says they are 
able to offer low-priced calculators because 
their research and development and manufac- 
turing departments have been working 
together at an earlier product-design stage 
which reduces overall costs. 



Aimed at business professionals and stu- 
dents, the HP-lOB is HP's first business cal- 
culator with a list price of under $50. It offers 
the same quality and reliability of HP's other 
more sophisticated models and contains the 
essential business and math functions for 
solving problems such as loan calculations 
and cash-flow analysis. 

The HP-lOB uses an algebraic entry sys- 
tem and features statistical functions, basic 
math functions and a 15-register memory. 
Also, it contains an automatic constant ftinc- 
tion for repetitive calculations, forecasting 
and linear-regression functions and a one-line 
by 12-character LCD display. 

The HP-20S scientific calculator also uses 
the algebraic entry system and contains 15 
math, ten trigonometry and nine statistical 
functions. In addition, the HP-20S features 
base conversions and arithmetic in decimal, 
binary, octal and hexadecimal modes. Fur- 
ther, polar-rectangular, hour/minute/second- 
decimal hour, degree-radian and English- 
metric conversions can be performed. 

The HP-20S also features keystroke 
programming whereby the machine 
"records" your keystrokes as you solve a 
problem and then lets you "play them back" 
as a program. The programming capability 
also includes conditional testing and branch- 
ing. The calculator has ten storage registers 
and a 99-step program memory. The HP-20S 
uses a one-line by 12-character LCD display 
and sells for $50. 

Cellular Telephones 

It appears that cellular telephones are really 
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taking off these days. The technology is not 
that old but the convenience it offers and the 
continual improvements made by the 
manufacturers have spurred the growth. The 
industry reports that there are now about a 
million subscribers and another million are 
expected to hook up in 1989. With those kinds 
of numbers, it's not surprising that cellular 
telephones are one of the hottest areas of con- 
sumer electronics today. 

One of the fastest growing segments of the 
cellular scene is the hand-held portable cel- 
lular telephone. These high-tech communi- 
cations devices look like Walkie-Talkies and 
allow telephone communication just about 
anywhere. In fact, while at CES in Las Ve- 
gas, I was having lunch at a local restaurant 
when a policeman came in for his lunch 
break. He was carrying a Walkie- Talkie and 
a hand-held portable cellular phone. I noticed 
during his meal that he was in constant con- 
tact with his dispatcher via the cellular phone. 

With prices continuing to drop and im- 
provements being made with the hardware, 
consumers are lining up to buy these phones 
and start using them on the go. Whether it's 
a consumer product or a business tool, the 
market has grown so large that these phones 
are available from stores like Radio Shack, 
the Crazy Eddie's type and telephone 
company-owned retail outlets. 

When portables first came out they were 
priced at about $2,000. Now, most sell for 
closer to $1,000, and typical users spend 
around $100 per month on the service. Re- 
cently, two companies. Motorola and STS in- 
troduced hand-held models for about $700. 
Although these units are heavy by today's 
standards (roughly 28 ounces each compared 
to the under 20-ounce weight of most porta- 
bles) interest has been very strong, and the 
companies are trying to met the demand. 

NEC America, Inc. continues with its 
P9100 series of portable cellular telephones 
featuring dual telephone-number capability, 
alphanumeric display and 832-channel capa- 
bility Up to 40 names and telephone num- 
bers can be stored, displayed and 
automatically dialed from memory. The 
P9100 also has last-number redial and a call- 
duration timer. 

The NEC P9100 offers 45 minutes of talk 
time and up to eight hours of standby, and 
when not in use, 20 hours of continuous 
standby. The unit weighs 23 ounces and sells 
for under $1,000. 

The Mitsubishi Electric DiamondTel 90X 
weighs just 18 ounces and is a full-featured 
model. It offers a full 832-channel operation, 

MAY A.IM.A.L.O.Q. Computing 



dual telephone-number capability, an al- 
phanumeric liquid-crystal display and a 
100-number memory. In addition, the 90X 
provides one and a half hours of talk time and 
13 hours of standby time. A scratch pad 
memory allows you to enter a number into 
the memory during a call and then speed dial 
that number by simply pressing one button 
after you complete the initial call. The 90X 
sells for under $1,800. 

Oki's new Model 700 portable is also light- 
weight but full- featured. It measures 7.48 by 
2.1 by 1.37 inches and features dual 
telephone-number capability, automatic 
credit-card dialing, a 100-name phone direc- 
tory and electronic menu. It sports a 
100-minute talk time or 18 hours of standby 
operation. Pricing has not yet been an- 
nounced. 

Portable cellular phones are expected to 
surpass 10 % of the cellular market in 1989. 
In addition, by 1990 fully half of the cellular 
telephone market is expected to be comprised 
of transportable and portable telephones. The 
models mentioned above are just a small sam- 
pling of what is currently available. The fu- 
ture looks very bright for portable cellular 
telephones. 

Other Products 

There were also a number of useful and 
clever products shown at CES. The Eye- 
opener is a $10 eye shield that mounts on a 
video camera. When flipped into position, 
it lets you keep both eyes open but makes it 
much easier to focus through the finder. You 
don't need to squint and can concentrate bet- 
ter on what you are doing. The Eyeopener 
attaches easily and quickly to any video 



camera and is adjustable for either left- 
handed or right-handed use. 

Another interesting product seen was the 
Private Eye from Reflection Technology. This 
postage-stamp-sized video screen is capable 
of displaying 80 columns by 22 lines with the 
clarity of a 12-inch screen as seen from two 
feet away. Although it sounds wacky, the Pri- 
vate Eye works amazingly well. The resolu- 
tion of the red display (it could also be green) 
is 720 by 280 pixels, although the company 
says that higher resolution can be achieved 
"depending on yield." 

Although not yet a commercial product, 
the applications for this technology seem un- 
limited. Imagine the Private Eye as an alter- 
native to a laptop computer display. You 
would wear the headband containing the dis- 
play tethered to the machine. Or imagine its 
use by a surgeon. As the surgeon works, the 
display could show the patient's X-rays or vi- 
tal signs. 

Casio usually has some interesting things 
at every CES, and I wasn't disappointed this 
time. In the past, Casio was the first to in- 
troduce a mini-keyboard synthesizer at a 
reasonable price: the CZ-101. 1 bought one of 
these when they first came out. A couple of 
years later, Casio introduced the first mini- 
keyboard digital sampling keyboard: the SK-1. 
I bought one of those too. 

Casio's latest musical gadget is the DH-100 
Digital Horn. It is a tad smaller than an alto 
saxophone and is made out of grey plastic. 
It sells for $150 retail but can be found for 
about $100 at discount stores. The DH-100 
comes with built-in sounds of a saxophone, 
trumpet, oboe, clarinet, flute and synth-reed 
and uses recorder-type fingering, making 
learning is easy. continued on page 56 
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We're now at a point in the game where we 
could do a number of things, and different 
people will reconraiend doing different 
things. For example, we've ignored the next- 
level and end-of-game sections of the pro- 
gram so far, and some game designers will 
argue that these sections should be complet- 
ed next. We also haven't done anything about 
the score yet, and we haven't given the in- 
vaders the ability to fire at the player. So 
what's our choice? Well, the point I'm try- 
ing to make is that it could be any of these. 
I personally have chosen to give the mvaders 
some fighting spirit, so that's what we'll do. 
You should realize, however, that at this point 
in the game the order of doing things is not 
as important as it was before. 

Firing Back at the Players 

Before we start the programming again, 
let's stop and take a look at the idea behind 
what we're going to do. To state it simply, 
we're going to make the invaders fire missiles 
at the player. No big deal, right? Not in this 
game, but giving the computer the ability and 
intelligence to fight back against the player 
can quickly turn into an extremely compli- 
cated task in other games. As a matter of fact. 



IB 



as I mentioned in the column on logic, a good 
part of a game's logic is usually involved with 
making the computer seem intelligent. 

Unfortunately, this kind of thing takes a lot 
of progranmiing and, therefore, a lot of tune, 
which is why most BASIC games are either 
not very intelligent or very slow. BASIC in- 
vaders falls into the "not very intelligent" 
category and is still somewhat on the slow 
side. So, if you feel the urge to devote a lot 
of time to designing a game that shows in- 
credible intelligence, I would suggest either 
domg something where speed isn't important 
(such as a strategy game of some sort) or 
learning machine language. 

Okay, back to our game. What we'd like 
to do is have the invaders in the bottom row 
fire missiles at the player's base. We'll make 
it easy on the player by only allowing the in- 
vaders to fire one missile at a time and hav- 
ing them fire randomly. (You may like to try 
changing the program later so that the invader 
nearest to the player's base is the one that 
fires.) So let's jump in and make some pro- 
gram changes: 

480 X=USR(ADRCMISCLRS),PA+7 

68,255,243] : POKE 1721,e:RET 

U»N 

IIBB IF PEEKC1721J<>e THEM 

GOSUB 480 
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1120 IF STRIG(8}=1 OR PEEKC 

1700)08 OR PEEKtl728)<>e 

R EF>1 THEN 1178 

1178 IF PEEK (1781) <>8 OR PE 

EKC1721108 OR LINE+BOTROMK 

2=19 THEM 1258 

1188 X=U5R(ADR(MISCLR$},PA+ 

768,255,243} :X=PEEK(28] 

1198 IF PEEK (281 =X THEH 1198 

1208 POKE 53278, 8:FC=INTCRND 

CO) *8)»2 : FR=B0TR0MH48 

1218 IF IMVSfFR+FC+27,FR+FC+ 

27)="¥" OR IMy$CFR+FC+27,FR+ 

FC+27)=" 

" THEH FC=FC-2+16»C 

FC=0) :G0T0 1218 

1228 POKE 1693,FC*8+55+SCR0L 

L+C0ftRSE«8:P0KE 53253, PEEK (1 

693) :FU=B0TR0WK16+LINE»8+46 

1238 POKE 1697,FV:FV=Fg+Pfl+7 

68:P0KE FU,PEEK(FV)+4:P0KE F 

y+l,PEEK{FW+l)+4 

1248 POKE 1713,4:P0KE 1717,1 

:P0KE 1781,1 

5348 POKE 1788,8:P0KE 1781,8 

:POKE 1728,8:P0KE 1721,8 

5358 POKE 1784,8:P8KE 1785,8 

SPOKE 1788,129:P8KE 1789,1 

And now yet another incredibly in-depth 
explanation: 

400 This is our collision routine for the 
invader missile. For now it simply 
erases the missile and clears the 
collision flag. 

1100 Here we check to see if the invader 
missile has collided with anything 
unportant and go off to the collision 
routine if it has. 

1120 A simple change to this line so that 
it now goes to line 1170 if we aren't 
going to fire a player missile. 

1170 Now we decide whether or not 
we're ready to fire an invader mis- 
sile. If there's already one in the m, 
if an old collision hasn't been taken 
care of yet or if the invaders are on 
the last line before the base (at 
which point the player would have 
no time to react to the missile), then 
we skip ahead. 

1180 If we are ready to fire an invader 
missile (i.e., if the program got past 
the previous line), then we can clear 
out Missile 1 and clear the system 
clock. 
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1190 We wait here until a jiffy has passed 
(to make sure that the missile is 
completely off the screen). 

1200 Now we clear the collision registers 
and randomly choose an invader on 
the bottom row. 

1210 The next step is to make sure that 
the chosen invader still exists, so we 
check its place in INV$. If we find 
a blank or an explosion, then we go 
one invader to the left (wrapping 
around to the right side if we're on 
the leftmost invader already) and try 
again. We don't leave line 1210 un- 
til a live invader has been found. In- 
cidentally, the two funny-looking 
characters in this line are produced 
with CTRL-COMMA and inverse 
CTRL-M. 

1220 We now have the position of our at- 
tacking invader, so we position the 
missile horizontally and figure out 
the vertical position. 

1230 Here we position the missile verti- 
cally and turn it on within the PMG 
area. You should notice that instead 
of turning on the missile by POKE- 
ing two 4s into the PMG missile 
area, we are adding 4 to the values 
that are already there. Why? 
Remember that the player missile 
is in the same group of bytes as the 
invader missile, and there is a 
chance that the player missile may 
be in the same two bytes that we're 
going to be putting the invader mis- 
sile into. To make sure that we don't 
erase the player missile, we add 4 
instead of POKEing 4. What about 
lines 1140 and 1150, though, where 
we turn on the player missile by 
simply POKEing? Isn't it possible 
that we'll accidentally erase the in- 
vader missile? It is, but by the time 
the invader missile gets that low on 
the screen, we don't need to worry 
about it anymore. If it bothers you, 
however, there's no reason why you 
can't update lines 1140 and 1150 so 
that the invader missile is left intact. 



1240 We tell PMOVE to watch for the in- 
vader missile colliding with Play- 
field 2 (the barriers) or Player (the 
base), and then we tell PMOVE to 
start the missile moving. 

5340-5350 These lines are part of the 
PMOVE initialization section, and 
we've changed them so that they in- 
itialize Missile 1 so that all the flags 
are clear and it's set to move up- 
wards when we turn it on. 

Well, that wasn't too difficult, and as a 
result we now have the invaders firing hap- 
pily away at us. Of course if you shoot away 
all but one invader on the bottom row, you'll 
notice that things tend to slow down quite a 
bit. Unfortunately, we can't do anything about 
this unless we were to introduce some more 
machine language. It's something you might 
like to try if you know machine language, but 
I won't do it here. This column has been 
designed to teach you how to program a game 
from BASIC, and machine language is only 
used when it's in a form that can easily be 
adapted to your own games. Such is not the 
case now. 

Invader-Missile Collisions 

The next step is to take care of the invader- 
missile collision routine at line 400. Let's take 
care of a small problem first that you may or 
may not have noticed. We're using Missile 1 
for the invader missile, and Missile 1 has the 
same color as Player 1. Well, we're using 
Player 1 for the alien saucer, which means 
that the invader missile has the same color 
as the alien saucer. As you can see if you run 
the program with the above changes, this 
seems to be perfectly acceptable. But try 
shooting down the alien saucer and see what 
happens. When the saucer fades out, so does 
the invader missile, and it doesn't return to 
normal until another saucer appears (which 
is when we restore Player I's color). The so- 
lution to this is to restore Player I's color af- 
ter the saucer has been destroyed. To do this, 
just make the following change to line 220: 

228 POKE 53249, 8: POKE 53258 
,5:P0KE 785,48 

Now we're ready to take care of collisions, 
so go ahead and make the following changes: 
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400 X=USR(ADRCMI5CLR$},PA+7 

68,255,2431 SPOKE 1721, 0:IF 

PEEKtl717)<>255 THEM 478 

418 POKE 1664,255 

428 X=USRCaDRCMI5CLR$},Pa+7 

68,255,252) :POKE 1788,8 

438 FOR X=117 TO 258 STEP 4 

:POKE 704,112+IMTCt258-XJ/9 

) : NEXT X 

458 POKE 53248, 128: POKE 168 

4,128:P0KE 784,15 

468 POKE 1664,8:RETURN 

478 X=PEEKtl693)-47+2»CRMDt 

8) >8 . 5J -1 : Y=PEEK 11697) -159 : 

GOTO 268 

400 Instead of RETURNing at the end 
of this line, we now checlc to see 
whether a collision with the base 
has occurred. If it hasn't, then the 
missile must have collided with one 
of the barriers, so we skip ahead to 
line 470. 

410 The missile has collided with the 
base, so we temporarily disconnect 
the base from the joystick (so that 
the player can't move the base while 
we're destroying it). 

420 We also want to get rid of the play- 
er missile if it's in the air, so we 
clear it and turn it off. 

430 Now we fade out the base in the 
same way that we faded out the 
saucer. 

450-460 We want to give the player a 
new base, so we position it in the 
middle of the screen, restore its 
color, reconnect it to the joystick, 
and then return to the main part of 
the program. 

1B 



470 This line takes care of the missile 
colliding with a barrier. Since the 
code to do the actual explosion is 
already in place starting at line 260, 
we may as well make use of it, so 
all we do here is figure out where 
the explosion is to take place and 
then skip over to line 260. 

Keeping Track of Flayer Bases 

We now have all our explosions in place, 
but when the player's base gets destroyed, he 
automatically gets a new one, regardless of 
how many he's already lost. As you're prob- 
ably well aware, video games do not gener- 
ally give you an infinite number of bases, or 
lives, unless the game is timed. In BASIC in- 
vaders the game ends when all your bases are 
destroyed or when the invaders reach the level 
of your base, not when your time runs out. 
This means that we're going to have to some- 
how keep track of the number of bases that 
we give out. These changes will do the trick: 



448 BflSE5=BASE5-l:IF BASES= 

8 THEN POKE 53248, 8: GOTO 28 

28 

4828 BASE5=3 



440 The variable BASES now keeps 
track of how many bases the player 
has left. Each time a base is des- 
troyed, we subtract 1 from BASES 
and check to see if BASES is equal 
to 0, which would mean that the 
player has no bases remaining. If 
BASES is equal to 0, we move Play- 
er off the screen and go off to the 
end-of-game routine. 



4020 The player is given three bases to 
begin with, although you can 
change this line if you'd like to start 
with more (or less). 

How Many Bases Are Left? 

So far so good, but we need to have some 
way of showing the player how many bases 
are left. We could just print the values of 
BASES next to the score somewhere, but that 
can be a little confusing. You may recall that 
we included a base character in our redefined 
character set, and it was for this exact rea- 
son that we did so. If you make the follow- 
ing changes to the game, the extra bases will 
appear on the screen right next to the score: 



458 POKE 87,l:P0KE 88,5CRL: 
POKE 89,SCRH:P05ITI0M 19-Bfl 
SES,8!? tt6;" ";:POKE 53248, 
128:P0KE 1684,128:P0KE 784, 
15 

5198 POKE 87,l:P0KE 88,5CRL 
:P0KE 89,SCRH:P05ITI0N 8,8: 
? tt6;" SCORE: 8 II " 

450 Each time we give the player a new 
base, we will now erase one of the 
extra bases from the screen. This 
line sets up the computer so that we 
can print on the score line, and then 
replace one of the extra base 
characters with a space. 

5190 In case you were wondering where 
the extra base characters came 
from, this line has been modified 
to print two extra bases alongside 
the score. Just in case you've for- 
gotten, the base character is typed 
in as CTRL-0. 
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Now we're all set. 



Keeping Score 



Now that we're keeping accurate track of 
extra bases and the like, we may as well keep 
track of the score as well. The score is an 
integral part of a video game, since it is what 
most people use to gauge how well they have 
played. Some people play to better their own 
score, some to get the best score on the 
machine, and there are even those who spend 
hours and hours playing one game, in an at- 
tempt to hold the dubious honor of being the 
best in the world at that game. In any case, 
because of all this emphasis on score, it is 
important to design the game so that the score 
is representative of how well the player has 
done. This is not as easy as it sounds, 
however, and before we add scoring to BA- 
SIC invaders, let's take a look at just what's 
involved. 

What Changes the Score? 

The first step in designing the scoring for 
a game is to decide which events on the 
screen are going to produce a change in the 
score. For example, some games credit the 
player for shooting anything that moves, some 
give points for each time unit that the player 
remains alive, and others reward the player 
for avoiding objects on the screen. 

Now it's true that how things are done de- 
pends a lot on the type of game that's in- 
volved, and there's no reason why we couldn't 
apply all the above mentioned scoring tech- 
niques to our simple BASIC invaders. (We 
won't though.) How? Well, we could give 
points for shooting the invaders and the sauc- 
er, for destroying all the invaders in as short 
a time as possible, and for avoiding the in- 
vader missiles by as much room as possible. 

Trying to avoid the missiles by as much 
room as possible is pretty stupid, and 
wouldn't be something that we'd want to give 
points for. Destroying the invaders as quick- 
ly as possible isn't a bad idea, although we 
won't be using it here (you may want to try 
adding it to the program yourself). We will 
be giving points for shooting the invaders and 
saucer, so let's look at the different ways we 
can approach this seemingly simple task. 

How Many Points for What? 

Once we've decided what we're going to 
give points for, the next question is "how 
many points?", and there are a few guidelines 
we can follow here. First of all, today's video 
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game players are used to high scores in the 
1,000s. No matter how good a game is, a 
player isn't likely to be too enthusiastic if he 
does really well and gets a high score of 357. 
A high score of 357,000, on the other hand, 
is something that he or she will feel good 
about, even if the only difference is three ex- 
tra Os. As a matter of fact, you'll find that 
most games tend to pad out their scores with 
extra Os for this exact reason. As a result, 
you'll see high scores like 54,200, but never 
like 54,237. It's a silly world. Anyway, we're 
going to pad out our score with one 0, as 
you'll see later. 

For now, we still have to figure out how 
many points to put behind the Os. Usually, 
or ideally, the points given for shooting some- 
thing are representative of how difficult the 
object was to shoot. We have three different 
types of invaders on the screen, as well as 
an alien saucer. The invaders are the easiest 
to hit, so we'll give more points for hitting 
the saucer. The invaders vary in size from 
large to small, with the smaller ones being 
slightly more difficult to hit, so we'll give 
more points for hitting the smaller invaders. 

Picking some numbers now, we'll give 10 
points for the large invaders, 20 for the medi- 
um, 30 for the small, and 300 points for an 
alien saucer. Where do these numbers come 
from? Wherever you want. We could have 
given 50, 60, 70, and 500 if we wanted, or 
any combination that looked good. You may 
not agree with the numbers I'm using, and 
are more than welcome to change them. The 
only thing that matters in scoring is that hard- 
er tasks are awarded with more points. The 
actual numbers themselves will only affect 
how high the scores will be. 

Well, with all that raving out of the way, 
we're now ready to make the necessary 
changes to our program. And here they are: 



220 POKE 53249, e: POKE 53250 
,5;SC0RE=5C0RE+38:G0T0 350 
340 SC0RE=5C0RE+3-lKTCR/96J 
350 SCORE$=STR$CSCORE) :POKE 

88,SCRL:P0KE 89,SCRH:P0KE 
87,1: POSITION 12-LENCSC0RE$ 

},o:? ne; SCORED; 

390 RETURN 

3030 DIM MLANG$C90) ,INU$C57 

83 ,DAT$(16) ,R0MC5} ,DL$C3e) , 

5C0RE$C61 

4020 BASES=3:SCDRE=e 



220 When the saucer is shot down, we 
now add 30 to SCORE (which 
keeps track of the score, of course) 
and skip ahead to a routine that 
prints the updated score on the 



screen. In case you're wondering 
why we're adding 30 instead of 300, 
don't forget about the extra that 
we're using to pad out the score. 
That is permanently on the screen 
and is not included in SCORE. It's 
actually just as easy to keep the 
whole thing in SCORE. When 
you're designing a game in machine 
language you look at the score as 
a series of digits instead of a whole 
number. Since I do a lot of 
machine-language programming, 
I'm used to doing things this way, 
and so that's my excuse for doing 
things in a funny way here. Besides, 
it's a sneaky way of emphasizing the 
padded score. 

340 You'll recall that R is equal to the 
row that the shot invader is in, times 
48. The rows are numbered from 
to 5, so if we divide R by 96 and 
take the integer part of the result, 
we'll get 0, 1 or 2, depending on 
which row the invader was in. Well, 
this also tells us what type of in- 
vader was shot, and we can use it 
to adjust SCORE. Which is exact- 
ly what this line does. 

350-390 This is a simple routine that 
puts the updated score on the 
screen. Our first step is to convert 
SCORE into a string. We do this so 
that we can tell how many digits are 
in the score, which in turn allows 
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us to right-justify it on the screen 
(try changing this line so that it 
prints SCORE, not SCORES, and 
you'll see why we're doing this). 
Next we set up the computer so that 
it's ready to print in the score sec- 
tion of screen memory, position the 
cursor appropriately, print the 
string, and then return back to the 
main part of the program. 

3030 We need to reserve some space for 
SCORES. 

4020 And we also have to initialize 
SCORE to 0. 

That's about all there is to scoring, with 
one exception. As a further incentive to get- 
ting a good score, most games give bonus 
lives (or time) to the player when he or she 
reaches a certain score. Some games give 
only one extra life, while others give many. 
Some limit the number of extra lives you can 
keep in reserve, some let you continue to ac- 
cumulate lives as long as you can keep earn- 
ing them. It's entirely up to the game 
designer. For our game, we're going to give 
one bonus base when the player reaches 
10,000 points. The following lines take care 
of it for us: 

369 IF 5C0RE<1000 OR B3=l T 
HtiN 390 

370 BB=l:Bfl5ES=BftSE5+l:P05I 
TION 20-Bft5ES,0:? «6;"i"; 
4020 BaSES=3:SC0RE=e:BB=0 

360 We don't want to award a base if the 
score is less than 10,000 (remem- 
ber the extra 0) or if the base has 
already been awarded. BB is a flag 
that gets set to 1 when the bonus 
base is awarded. I originally forgot 
to include such a flag, and as a 
result the game awarded me an ex- 
tra base every time I shot some- 
thing, once I'd gotten 10,000 points. 
Be careful of little details like this 
when you add a new feature to your 
game. 

370 If we are going to award a base, 
then we set the bonus base flag, add 
1 to our base count, and print the 
new base next to the other extra 
bases. 

4020 Here we just make sure that BB is 
initialized to 0. 



Of course right now the game won't let you 
get 10,000 points, since it ends when all the 
invaders are shot down. We'll take care of this 
in the next section, but you can change line 
360 so that the extra base is awarded at a low- 
er score if you want to see for yourself that 
the above lines do indeed work. 

A New Level 

We now have all the basic game play ele- 
ments in place, but we're still limited to one 
screen of invaders, or one level of the game. 
Our next logical step, therefore, is to extend 
the game to more than one level, and that's 
exactly what we're going to do in this section. 

In all of the early video games, a new lev- 
el meant a more difficult version of the level 
before it. But that soon changed as games like 
Donkey Kong, Tempest and Miner 2049er hit 
the market. In these games a new level in- 
troduced a different challenge, which meant 
that the game took longer. Each level was 
progressively more difficult, and this is the 
basic guideline that all good games should 
follow. If a player is not consistently 
challenged by a game, then he or she will 
quickly tire of it, and this is something the 
game designer would prefer to avoid. 

Increasing the Challenge 

How do we go about increasing the 
challenge? As I mentioned already in the sec- 
tion on game logic, the most common ways 
are to speed things up, add more opponents, 
and give the opponents more strength. In 
other words, you want to give the computer 
more of an advantage over the player. 

At the same time, you want to make sure 
that the player still has a chance. It's very im- 
portant to maintain the impression that hey, 
I made a dumb mistake but I 'II do better next 
time, rather than there's no way I could have 
gotten out of that. After all, why should any- 
one play a game they know they have no 
chance at? 

It's very hard to predict how difficult the 
higher levels will get in some games, so you 
have to be careful when you're programming 
the difficulty changes. Another thing to watch 
out for is the fact that you will tend to be very 
good at your own game. As a result, a be- 
ginner may tend to find the game very 
difficult. It's a good idea to have a friend try 
the game out and give you their opinion. 
Make sure that they're not afraid to be honest, 
however! 

It's extremely difficult to talk specifically 



about things like this, since each game is, and 
should be, different. You might want to spend 
some tune at your local arcade, playing a va- 
riety of games and noticing what they do to 
make each level more difficult. 

As far as our own game is concerned, we 
don't have many choices. Because of the 
speed problems with BASIC, we can't really 
do anything to speed things up. We do have 
a little room to add more opponents, but not 
much. We need something that we can use 
level after level. 

As far as making the invaders stronger is 
concerned, we could add an extra missile, but 
again, we can't do this at every level. So what 
is left? What if we begin each level with the 
invaders a little closer to the bottom of the 
screen? That way the player has less time in 
which to destroy them all (since the game is 
over when they reach the bottom). We'll place 
a limit on how far down they can start, of 
course, since we have to make sure the play- 
er has a chance. This is a simple but effec- 
tive solution that is also easy to do, something 
which we need to consider when using BA- 
SIC. Let's go ahead and do it: 



2000 X=U5RC0DRCUBL0FF$)) 
2010 X=USR(ADRCMOUNEM$),ADR 

") , MEMl+LIKE*24+TMP»48+24 , 2 

3} :G0T0 5000 

4020 BASES=3:SC0RE=e:BB=0:L 

EVEL=0 

5000 POKE 559,0:P0KE 54276, 

: K=USR CADR CMISCLR$) , PA+768 

,255,240) :LEUEL=LEUEL+1 

5005 KrUSRCADRCUBLOFF^)} 

5010 DLI5T=PEEKC56e)+PEEKC5 

61)»256:IF SCRHOO THEM POK 

E DLIST+4,SCRL:P0KE DLIST+5 

,SCRH 

5190 IF LEUEL=1 THEM POKE 8 

7,l:P0KE 88,SCRL:P0KE 89, SC 

RHrPOSITIOM 0,0:? tt6;" SCOR 

e: ,,'■ 

5280 LINE=LEUEL-2:IF LINE>8 
THEM LINE=8 



2000 When we finish a level, the first 
thing we want to do is turn off the 
VBLANK routines, mainly so that 
the player can't move the base 
around while we're getting things 
ready. This line takes care of that 
for us. 

2010 We also have to take care of the fact 
that the last invader explosion is still 
on the screen. The solution to this 
is to simply move a string of blanks 
(remember that the internal code 
for a blank is the ATASCII code for 
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a heart) into the line of the screen 
where the last explosion occurred. 
After we do this we're ready for the 
new level, so we skip ahead to the 
code that initializes a level. I'll go 
into a little more detail on why 
things are arranged this way after 
the rest of the explanation. 

4020 We now have to keep track of which 
level we're on, which we'll do with 
the variable LEVEL. Here we just 
initialize LE'VEL to 0. 

5000 This is the beginning of the code 
that initializes a level. First we 
make sure that the screen is turned 
off. Then we initialize the fine 
scroll register to 0, clear the player 
and invader missiles, and increase 
the level number. 

5010 If IF SCRH <>0 is true, this 
means that we've already complet- 
ed at least one level, in which case 
we want to restore the first LMS in 
the display list (to get rid of the 
coarse scrolling we've done). 

5190 We only want to set up the score 
and extra bases if this is the first 
level. If it isn't, then the score and 
bases are already on the screen and 
we don't want to change them. 

5280 As our last step, we want LINE to 
reflect the level that we're on. 
(Remember that LINE specifies 
how far down the screen the in- 
vaders are). At the same time, we 
also want to make sure that the in- 
vaders don't start too far down, so 
we let LINE start no higher than 8. 
If LINE is equal to 8, then the bot- 
tom row of invaders will start two 
lines above the base. This gives the 
player just enough time to destroy 
the bottom row before it reaches the 
base. 

You've no doubt noticed that lines 5000 
through 5280 fall right in the middle of the 
initialization part of BASIC invaders that we'd 
already written. As a result, we only have a 
few lines to add rather than a whole bunch. 
Let's take a few minutes to look at how the 
initialization section of the program has been 
organized, since I've been somewhat sneaky 
about it. 
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Initialization Routines 

In a game such as BASIC invaders, the in- 
itialization section can be divided into three 
sections. We'll call these sections "FIRST 
RUN," "NEW GAME," and "NEW LEV- 
EL." Their purposes match their names. 

FIRST RUN takes care of things that only 
need to be done when the program is first 
run. The FIRST RUN section of BASIC in- 
vaders takes up lines 3000 through 3310 and 
handles things like setting up the machine- 
language routines, the PMG area, and the 
character set. 

NEW GAMES takes care of things that 
need to be done each time a new game is be- 
gun. It takes up lines 4000 through 4020 in 
BASIC invaders and handles the title page, 
initializing the screen, and initializing a few 
variables such as LEVEL and SCORE. 

NEW LEVEL is the section of the code 
that we're dealing with now, and takes up 
lines 5000 through 5490. Apart from the tasks 
we just added, it also sets up the display list, 
draws the barriers, sets up INV$, initializes 
some more variables, and takes care of a few 
other sundry items. 

As you design your game, you should try 
and group your initialization code into these 
three categories. I have to admit that I didn't 
when I first wrote BASIC invaders, and end- 
ed up having to go through and sort things 
out later. Try not to find yourself in the same 
predicament (easy to say). 

Another Change 

And now, back to the program. I con- 
veniently left something very important out 
of the above additions, but you won't notice 
what until you reach Level 7. Can you guess 
what it is? Well, at Level 7 the invaders reach 
the barriers, and at the moment the program 
is only set up to handle this if it occurs dur- 
ing a level, not at the beginning of one. So, 
we have to make another change to the NEW 
LEVEL section: 

5138 IF LEUEL<7 THEN BARLIM 

=e:GOTO 5180 

5148 TMP=LEUEL-7:IF LEUEL>9 

THEM TMP=2 
5158 BftRLIM=TMP+l:FOR K=l T 
BARLIM:P8KE DLIST+28+X, 22 
!NEKT X 

5168 X=U5RCAI>RCN0UHEN$J,DLI 
ST+31 + iO»TMP, ftDR CDLSJ , 29-18 
»TMPJ 

5170 X=U5RCaDR(N0UMEM$),ADR 
CDLS),DLI5T+22+TMP,29-18»TM 
PJ 
5228 IF BaRLIM=3 THEN 5278 



5130 If we aren't at Level 7 yet, then we 
haven't stmck the barriers, so we set 
BARLIM to and skip over the 
next part. 

5140 TMP is actually equal to 
BARLIM-1, as you'll see in the next 
line. The only reason that we bother 
with it is because we'll need to use 
BARLIM-1 a lot in the next few 
lines, and using TMP instead is a 
lot simpler. 

5150 Here we set BARLIM, and then we 
POKE the correct number of CHR 
6 HSCs into the display list. You 
may want to read the "Onwards and 
Downwards" section again if you're 
not sure why we're doing this. 

5160-5170 Now we want to "scrunch" the 
display list to get rid of the extra 
CHR 14 lines, so we use the same 
technique that we did in lines 
1440-1450. You can also see now 
why we needed TMP. 

5220 If BARLIM is equal to 3, which 
means that the invaders are starting 
far enough down so that the barri- 
ers are completely gone, then 
there's no point in drawing them. 

Now everything works as it should. One 
final note before we move on. In the arcade 
version of Space Invaders, the difficulty of 
each level is further increased by the invaders 
speeding up as their numbers decrease. By 
the time you get down to the last invader, it 
is zooming back and forth across the screen 
and is much more difficult to hit before it 
reaches the bottom. Why don't we add this 
to our game? In case the answer isn't obvi- 
ous, the problem is speed. If, however, you 
can get your hands on a BASIC compiler, 
which speeds BASIC programs up consider- 
ably, you could add a time delay between in- 
vader movements, and then have this delay 
decrease with the number of invaders remain- 
ing. Since you should seriously consider in- 
vesting in a compiler if you're doing a lot of 
BASIC game programming, I thought I would 
just mention this now, since it pertains some- 
what to this section. 



Sound 



Here are the changes to BASIC invaders 
that will get some simple sound effects up and 
running: 



260 FOR X=4 TO 8 STEP -l!50 
UND 2,16,4,X:P0KE 7e5,il2+X 
«3:P0KE 706,112+X»3:F0R L=i 

TO 18: NEXT L:NEXT X 
308 FOR X=55 TO 50 STEP -1: 
SOUND 1,X,8,55-X:NEXT X:SOU 
ND l,0,0,e:RETURN 
335 FOR X=258 TO 50 STEP -2 
5:S0UND l,X,ie,8:NEXT X:50U 
ND 1,0,8,8 
388 FOR X=l TO 5 : FOR Y=8 TO 

STEP -llSOUND 1,18,18,Y: 
NEXT V:NEXT X:FOR PaUSE=l T 
10:NEXT PAUSE 
438 FOR X=117 TO 250 STEP 4 
SSOUND 1,X,8,INT(C258-X)/?) 
:P0KE 704,112+INT(t258-X)/9 
} : NEXT X 
1018 FOR X=188+PI TO 116+PI 

STEP 2:S0UND 0, X, 2, 116+PI- 
X.-NEXT X:PI=PI+20:PI=PI»CPI 
<78) 

1168 FOR X=16 TO STEP -2 1 
SOUND 1,20,8,X:NEXT X 
1300 POKE 675,15:P0KE 1685, 
235:P0KE 1686,24e:P0KE 785, 
40:P0KE 706,4e:SAUCER=l:S0U 
ND 2,18,4,4 

1370 IF SAUCER=1 AND PEEK (1 
686} <48 THEN SAUCERzO : SOUND 

2,e,8,8:P0KE 705,15:F0R PA 
USE=1 TO 18: NEXT PAUSE 
2005 SOUND 2,8,8,8 
2825 FOR X=0 TO 3 : SOUND X,8 
,8,8:NEXT X 



And here's the explanation: 

200 When the alien saucer has been hit, 
we now fade out its sound as well 
as its color. 

220 This just turns off the sound of the 
missile, since it has collided with 
the saucer and therefore doesn't ex- 
ist anymore. 

300 This is at the end of the barrier ex- 
plosion section, and makes a small 
explosion sound every time a bar- 
rier is hit. Notice that we're chang- 
ing both pitch and volume. 

335 An invader has been hit, so we 
make an explosion sound by vary- 
ing the pitch on one of the "noise" 
distortion modes. 

380 Here we make a "ting-ting-ting- 
ting-ting" sound when the bonus 
base is awarded. Notice that we're 
using a high-pitched pure note and 
just changing the volume. 

430 The player base has been hit, so 
make an explosion sound as we fade 
it out (this line is similar to line 200 
above, with the exception that here 



we're varying the pitch instead of 
the volume). 

1010 This line is interesting, because it 
adds a lot to the effect of the game, 
but at the same time it also slows 
it down. You may or may not want 
to remove it. What it does is make 
a "tromping" or footstep sound as 
the invaders move across the 
screen. Because of its repetition it 
tends to draw the player deeper into 
the game, in a way that's almost 
hypnotic. Try it and see what I 
mean. In any case, the sound is 
created by varying the volume and 
pitch of one of the "noise" distor- 
tion modes. We also change the 
pitch between tromps, so that there 
are four differently pitched tromps 
arranged in a "one-two-three-four, 
one-two-three-four" pattern. 

1160 Here we've just fired a player's mis- 
sile, so we make a simple firing 
sound by varying the volume on a 
"noise" distortion mode. 

1300 When we turn the saucer on, we 
also want to turn its sound on as 
well. The distortion mode that we 
use in this line is a good one to use 
for engine-type sounds, since at the 
right pitch it has a throbbing quali- 
ty. Thus we can just set it once to 
get the effect we want, without hav- 
ing to worry about varying pitch or 
volume. 

1370 We want to turn the saucer sound 
off when it goes off the edge of the 
screen, and that's exactly what we 
do here. 

2005 There is a chance that the player 
will finish a level with the saucer 
in mid-flight, so we want to make 
sure that the saucer sound is mrned 
off at the end of each level. 

2025 Finally, at the end of a game we 
want to turn all sounds off. 

The End 

Don't be misled by the tide of this section; 
it isn't the end of our programming. Instead 
we're going to be discussing the end of the 
game, that inevitable moment when the com- 
puter finally overcomes the player Since 
there isn't really that much that happens at 



the end (other than things ending), this is go- 
ing to be a pleasantly short section, so let's 
get right into it. 

For the most part, a video game has two 
responsibilities at its termination. First, it 
should tell the player that the game is, indeed, 
over As seemingly silly as this may sound, 
there are quite a few games out there, most- 
ly in the home market, in which the player 
suddenly finds himself back in the title page 
with absolutely no idea of how they got there. 
At least give the player a chance to realize 
that they've lost. 

The second responsibility is, of course, to 
go to the title page so that the player can take 
another shot at it (so to speak). And that's 
all there is to it. Of course some game design- 
ers feel the need to come up with some 
elaborate way of presenting the "you blew it" 
message, such as blowing up the screen or 
having the aliens stand there and laugh. This 
tends to annoy the player to the point where 
they play the game again just to get revenge. 
I've even seen some games with end screens 
that are so darn cute that I play the game 
again just so I can lose. You may wish to 
adopt one of these methods if you have the 
extra time and memory. Just keep in mind 
that an exploding screen won't work too well 
in a "Saturday morning cartoons" type of. 
game, and a cute ending is totally out of place 
in a "destroy the galaxy" type. 

Letting the Player Know 
What's Goin^ On 

Enough talk; let's get down to action. We're 
not going to add anything fancy to BASIC In- 
vaders, just a simple message to let the play- 
er know what's going on. We'll also take care 
of a few other details that I forgot to men- 
tion above, such as cleaning up the screen a 
little. Here are our new additions: 



2820 X=USRCADR(NEHCLR$),NEH 

1,528) 

2838 POKE 54276, erPOKE 559, 

8: POKE DLI5T+5,INT{MEMl/256 

):POKE DLI5T+4,MEM1-PEEKCDL 

I5T+5)»256 

2040 X=USRCADRCM0UMENS) ,ADR 

),MEM1+192,23) 

2058 FOR X=53248 TO 53255 : P 

OKE X,0:NEXT X : POKE 559,62 

2060 IF SC0RE«10>HISC0RE TH 

EN HISC0RE=SC0RE«10 

2878 POKE 20,1 

2880 IF PEEK (20)00 THEN 20 

88 

2098 GOTO 4000 



2020 Our first step is to clear the screen, 
since there are still invaders on it. 
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Our MEMCLR routine does this 
quickly for us. 

2030 We're going to be printing a mes- 
sage on tiie screen and we want to 
make sure it's centered, so we set 
the fine scroll register back to 0. We 
also want to reset the coarse scroll- 
ing, so we turn off the screen and 
give the first LMS in the display list 
its original value back. 

2040 Now we put up our message (avoid- 
ing the temptation to be nasty about 
it). 

2050 Next we move all the players and 
missiles off-screen and turn the 
screen back on. 

2060 This is as good a time as any to 
check for a new high score, so we 
do. 

2070-2080 We need to give the player 
time to realize what's going on (i.e. 
time to read the message), so we set 
the system clock to 1 and then wait 
for it to reach again (which takes 
4.25 seconds). 

2090 We're all done, so it's off to the 
NEW GAME section of our initiali- 
zation code. 

See, I told you this was going to be an easy 
section. 



The Finishing Touches 

Here we are with an actual working game. 
Of course I'll be the first one to admit that 
it's not quite as fast as we'd like, but that's 
the problem with BASIC. A good BASIC 
compiler will take care of this problem for 
us, but before we worry about speeding things 
up, we still have a few embellishments to add 
to the program. 

The first thing we'd like to do is give the 
program a beginning. As it stands now, the 
game starts as soon as the program is RUN, 
and a new game begins as soon as the old 
one ends. It is preferable to have some sort 
of screen that comes up before the game be- 
gins, thereby giving the player an opportu- 
nity to start when he or she is ready. 

This screen is called the tide screen and 
you'll find it, in one form or another, in ev- 
ery video game on the market. Some of these 
screens are as simple as a few words an- 

MAY A.N.A.L.O.CB. Compucing 



nouncing the name of the game (as ours will 
be), while others are almost an entire pro- 
gram within themselves. 

Why should so much work be put into such 
a seemingly meaningless part of the program? 
In the old days, when video games were re- 
stricted to the arcades, it was the title screen 
that attracted players to the game. When 
video games came home, especially on the 
horrie computers, game designers essential- 
ly imitated the whole style of the arcade 
games, and thus the fancy title screens made 
their way into the home. Of course the homes 
games were bought on the basis of media ad- 
vertising and not on the basis of the title 
screen, but programmers didn't seem to care. 
Not that a fancy screen isn't a nice touch, but 
it tends to take up a lot of precious memory. 

The Title Screen 

Since we're trying to keep BASIC invaders 
as short as possible, our title screen is going 
to be short but sweet. It will announce the 
name of the game, the authors and copyright 
notice. It will also show the high score to 
date, and will sit patiently on the screen un- 
fil the player presses the Start button. We'll 
do a little bit of adjusting to the display list 
to get a nice-looking screen layout, but other- 
wise the rest of it is quite straightforward. See 
for yourself: 

4008 GOSUB 6800:GRAPHICS 24 

:POKE 559,e:P0KE 756,CB+2 

6000 GRAPHICS e:POKE 559,8 

6010 D2=PEEKC560}+PEEK(561] 

»256 

6020 SETCOLOR 4, 7, 8 : SETCOLO 

R 2,7,8:SETC0L0R 1,9,15:5ET 

COLOR 3,4,8:SETC0L0R 8,12,1 



6030 POKE D2+7,7:P0KE D2+16 

,6:P0KE D2+25,6 

6040 POKE 752,l:P0KE 82,e:P 

OKE 83,39:P05ITI0N 3,2:? "0 

6050 POSITION 28,2:? "By Or 
aig Patchett & You" 
6060 POSITION 22,18:? "HI S 
CORE:": POSITION 37-LENCSTRS 
CHISC0RE}),18:? HISCORE 
6070 POSITION 8,19:? "PRESS 

Start TO BEGIN" 
6080 POSITION 22,28:? "CO 
1984 Educational Software, 
Inc." 

6090 POKE 559,34 
6108 IF PEEKC53279J06 THEN 

6100 
6110 RETURN 

This shouldn't be necessary, but here's the 
explanation: 

4000 Before we start the game, we now 
go off to our title-screen routine. 



6000 We get the computer to set up a 
graphics mode display list, and 
then turn off the screen. 

6010 Then we set the screen colors to 
something that will be a little more 
appealing than the regular colors. 

6020-6030 Next we figure out where the 
display list is and add a graphics 
mode 2 line and two graphics mode 
1 lines to it. 

6040-6080 We don't want to see the cur- 
sor on the screen so we turn it off. 
We also set the margins so that we 
can print across the whole screen, 
and then we print the text. 

6090 Our title screen is all set up now, 
so we go ahead and turn it on. 

6100 All that's left now is to wait until 
the Start button is pressed. 

6110 And then return back to line 4000. 

Disabling the Break Key 

As you can see, the result is simple but 
serves a purpose. If you're feeling adven- 
turous, you may like to spruce it up a little. 
A simple but effective change would be to add 
some of the invader characters and have them 
walk in place or even across the screen. Use 
your imagination. 

We have one more final change to the game 
that will make it complete. It's a small 
change, and one that isn't really necessary 
other than as a precaution. We're going to dis- 
able the Break key so that the player can't ac- 
cidentally stop the program. All it takes is 
a simple two-line routine that has to be ex- 
ecuted each time the GRAPHICS command 
is used (since this command sets the Break 
key back to normal). And now (drum roll), 
here are the last additions to BASIC invaders. 

98 GOTO 3000 

3000 GOSUB 7088 

4080 GOSUB 6000: GRAPHICS 24 

:GOSUB 7eee:P0KE 559,e:P0KE 

756,CB+2 
6008 GRAPHICS : GOSUB 7000: 
POKE 559,0 

7008 IF PEEKC16)-128>=8 THE 
N POKE 16,PEEKC16J-128:P0K£ 

53774, PEEK tl6J 
7818 RETURN 

And, of course, the last explanation: 

90 A simple change to this line due to 
the addition of the next line. 

S3 



3000 Here we've added the first call to 
our routine, right after the 
GRAPHICS command. 

6000 Again, a call to the routine after the 
GRAPHICS command. 

7000-7010 This is the routine. You don't 
need to understand what it's doing, 
just make sure that you use it ex- 
actly as it appears here. 

Congratulations! Our game is now 
complete! 

The Final Listing 

Now that you have hopefully typed every- 
thing in and have a working version of the 
game it may help to see all of the code 
together. The following listing is here for that 
purpose. 

To create your complete copy of BASIC In- 
vaders, first type in Listing 1 (checking your 
work with BASIC Editor II, found elsewhere 
in this issue) and save it to disk. (Don't bother 
trying to type lines 29000 through 32510; 
Listing 2 will do that for you.) Now type in 
Listing 2, save it and run it. When the pro- 
gram has finished creating the lines contain- 
ing the ML strings, type LIST 
"D:LINES.LST",29000,32510 to save the 
newly created lines to disk. Now load the pro- 
gram you typed from Listing 1 into your com- 
puter's memory and type ENTER 
"D:LINES.LST" to merge the lines created 
by Listing 2 with the main program. Final- 
ly, save the completed program to disk. 



LISTING 1: BASIC 

lU 98 GOTO 3088 

UU 188 X=USRCADRCMISCLR$),Pa-f768, 255, 2523 

:P0KE 1728, e:IF PEEKC1716}<>255 THEN 2 

38 
QI 198 POKE 675,15 
M 288 FOR K=4 TO 8 STEP -1:S0UND 2,16,4, 

K:POKE 785, 112+XW3: POKE 786, 112+K*3 : FO 

R L=l TO 18: NEXT L:NEXT X 

218 SOUND 2,e,8,8:P0KE 1685,e:P0KE 168 

6,5:P0KE 785,15 

228 POKE 53249, 8: POKE 53258, 8 : SCORE=SC 

DRE+3e:G0T0 358 

238 TMP=PEEK (53248) : IF TMP<4 OR TMP=8 

THEN 318 

248 SOUND 1,8,8,8 

258 X=PEEK C1692J -47+2* (RND 48) >e . 5> -1 ; V 

=PEEK C169e) -158-8*BftRLIM 

268 POKE 89,IHTC(MEM7+328WBARLIM)/256) 

:P0KE 88,MEM7+328WBARLIM-256WPEEK(89) : 

POKE 87,7;C0L0R 8 

278 VT=Y-3!VT=YTKCYT>=8> 

288 PLOT X-2,yT:DRAMT0 K+2, YT+6 : PLOT X 

,YT:DR0MT0 X,YT+6:PL0T X+2,YT:DRAMT0 X 

-2,VT+6 

298 PLOT X-2,YKCY>=8) EDRAMTO X+2,VWCY> 

=8] 

388 FOR X=55 TO 58 STEP -1: SOUND 1,X,8 

,55-X;NEXT X:S0UND 1,8,8,8:RETURN 
AS 318 IF TMP=e THEN 258 






MH 

JN 

MF 
FK 



BL 



OL 
AC 



EO 
DI 



PK 328 R=48WIKTCCPEEK(ie96)-38-8WCLINEI)/ 
16) : C=2«IHT ( tPEEK C1692) -SCROLL-COARSE* 
8-55) /16) :R=RWCR>=e) 
TM 338 INU$(R-l-C'l'28,R+C+29)="i^":INV$(R+C+ 

315, R+C+316) ="|^'" ; EF=2 
UN 348 SC0RE=SC0RE+3-INT(R/96] 
MH 358 SCORE$=STR$CSCORE] iPOKE 88,SCRL:P0 
KE 89,SCRH:P0KE 87, 1 : POSITION 12-LEHtS 
CORES), e:? tt6;SC0RE$; 
GH 368 IF SC0RE<1888 OR BB=1 THEN 398 
UG 378 BB=l:BASES=BASES+l: POSITION 28-BAS 

ES,8:? tt6;","; 
LL 388 FOR X=l TO 5: FOR Y=8 TO 8 STEP -1 ! 
SOUND 1,18,1B,Y:NEXT Y;NEXT XsFOR PAUS 
E=l TO 18: NEXT PAUSE 
FT 398 FOR X=258 TO 58 STEP -25: SOUND 1,X 

,ie,8:NEXT XiSOUND 1, 8,8,8 :RETURN 
QH 488 X=USRCADRCMISCLR$),PA+76S,255,243) 
:POKE 1721, 8:IF PEEKC1717)<>25S THEN 4 
78 
CU 418 POKE 1664,255 
CI 428 X=USR (ADR CMISCLR$),PA+76S, 255, 2521 

;POKE 1788,8 
AD 438 FOR X=117 TO 258 STEP 4:S0UND 1,X, 
8,INT((258-X)/9) :POKE 784, 112+INT ( (258 
-X)/9) :NEXT X 
XF 448 BASES=BASES-l:IF BASES=e THEN POKE 

53248, 8:G0T0 2828 
BK 458 POKE 87,1:P0KE 88,SCRL:P0KE 89, SCR 
H:P0SITI0N 19-BASES,8:? tt6;" "j:POKE 5 
3248,128:P0KE 1684, 128: POKE 784,15 
SU 468 POKE 1664,8:RETURH 
CO 478 X=PEEK(1693}-47+2W(RND(e)>e.5]-l:Y 

=PEEK (1697) -i59-8»BARLIM: GOTO 268 
UJ 1888 X=USR(ADR(M0UHEM$),ADR(INV$)+SB,H 

EM1+LINEW24, 287-48M(5-B0TR0U) ) 
AE 1828 IF EF=8 THEN 1888 
AD 1838 INU$(R+C+28,R+C+29)="¥«":INV$(R+C 

+315, R+C+316) =■■¥¥" 
PB 1848 TMP=R/48:R0H(TMP)=R0M(TMP)-l:IF R 

0W(TMP)<>8 OR TMPOBOTROW THEN 1888 
GK 1858 FOR LP=BOTROM TO 8 STEP -1:IF ROM 

(LP]=8 THEN NEXT LP:GOTO 2888 
DS 1868 POP :B0TR0H=LP 

PO 1878 X=USR(ADR(MOUMEM$),ADR("VWVVV«irV 
Vl^VVVVVVVVVVVVr ') , MEM1+LINE»24+TMP*48+ 
24,23) 
FM 1888 SB=SB+287«(5B=8)-287*(SB=287) 
PD 1898 IF PEEK (1728)08 THEN GOSUB 188 
HZ 1188 IF PEEK (1721) <>8 THEN GOSUB 488 
DF 1118 POKE 53278,6 
KV 1128 IF STRIG(8)=1 OR PEEK (1788)08 OR 

PEEK(1720)O8 OR EF<>8 THEN 1178 
HT 1138 SOUND 1,8,8,8 

SI 1148 X=USH(ADR(MISCLR$),PA+768,255,252 
);POKE 1692,PEEK(ie84)+2:P0KE 53252, PE 
EK(ie92) :P0KE 1696,281:P0KE PA+969,1 
US 1158 POKE PA+978,l:P0KE 53278, e;POKE 1 
712,15:PDKE 1716,6:P0KE 1728,e:P0KE 17 
88,1 
FJ 1168 FOR X=16 TO 8 STEP -2: SOUND 1,28, 

8,X:HEXT X 
QG 1178 IF PEEK (1781) 08 OR PEEK (1721) 08 

OR LINE+B0TR0MW2=19 THEN 1258 
BX 1188 X=USR(ADR(MISCLR$),PA+768,255,243 

) :X=PEEK(28)+l:IF X=256 THEN X=8 
PL 1198 IF PEEK(2e)<X THEN 1198 
IN 1288 POKE 53278, 8:FC=IHT(RND(e)W8)W2:F 

R=B0TR0MK48 
KB 1218 IF INWS(FR+FC+28,FR+FC+28)="»" OR 
IHU$(FR+FC+28,FR+FC+28)="~" THEN FC=F 
C-2+16*(FC=8) :GOTO 1218 
NO 1228 POKE 1693, FCW8+62+SCR0LL+C0ARSEW8 
:POKE 53253, PEEK (1693) :FU=B0TRQMW16+LI 
NE«8+46 
HM 1238 POKE 1713, 4; POKE 1717,1 
GK 1248 POKE 1697, FW : FU=FU+PA+768 ; POKE FM 
, PEEK (FW) +4 ; POKE FV+l, PEEK (FV+1) +4 : POK 
E 1781,1 
HZ 1258 EF=EF-(EFOe) 
LO 1268 IF PEEK (28X38 AND PEEK (19) =8 THE 

N 1338 
NI 1278 IF PEEK (53251) =8 THEN 1338 
RR 1288 CHANGE=-CHANGE:POKE 1791, 129-PEEK 
(1791):P0KE 19,8:P0KE 28,8:P0KE 53255, 
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127+77*CHflHGE : LINE=LINE+1 
GH 1290 IF CHANGE=1 OR LINE+B0TR0MK2=2e T 

HEN 1408 
HF 1300 POKE 675,15:P0KE 1685, 235: POKE 16 

86,24e:P0KE 785,4e:P0KE 706, 40; SAUCER= 

l:50UND 2,10,4,4 
UH 1318 POKE 675,11 
OM 1320 GOTO 1400 
TJ 1330 5CR0LL=SCR0LL'I'CHANGE 
CK 1340 IF SCR0LL>15 THEM SCR0LL=SCR0LL-1 

6;C0ARSE=C0AR5E4-2:P0KE 1790,2:G0T0 136 



jc 1358 if scroll<a then scr0ll=scr0ll+16 

:coarse=coarse-2:poke 1790,2 
mz 1360 poke 1789, scroll: poke 1788,1 

ST 1378 IF SAUCER=1 AND PEEK Cie86] <40 THE 

N SAUCER=e: SOUND 2,0,e,0:P0KE 7e5,lS:F 

OR PAUSE=1 TO 18: NEXT PAUSE 
DP 1380 IF PEEKC1790)<>8 THEN 1380 
NV 1390 GOTO 1000 
HO 1400 POKE 53278,0: IF LINE-I-B0TR0MW2O20 

THEN 1430 
UU 1410 X=USRCADRCHOUMEM$),ADRCINU$}+SB,M 

EM1+LINEW24,287-48W(5-B0TR0H}) 
ON 1420 GOTO 2020 
LE 1430 IF LINE+B0TR0HW2O15+BARLIM OR BA 

RLIM=3 THEN 1008 
CI 1440 POKE 559,0:P0KE DLIST-i-21+BARLIH, 2 

2 : X=USR CADR (M0VMEH$) , DLIST+31+BARLIM, A 

DH {DL$) , 29-ieWBARLIM) 
UM 1450 X=USR CADR (HOVMEM$), ADR CDL$J,DLIST 

+22+BARLIM, 29-10«BARLIM) :POKE 20,0 
OX 1460 IF PEEKC20X2 THEN 1460 
UT 1470 POKE 559,62:BARLIH=BARLIM+l:G0TO 

1000 
DT 2000 X=USR CADR CUBLOFF$) ) :X=USR CADR CMOU 

MEM$I , MEMl-44 , ADR CDL$) , 19) 
DT 2010 X=USR CADR CMOUMEMS), ADR C"¥VV¥¥¥«¥¥ 

¥¥¥¥¥¥¥¥*¥»¥♦¥**") , MEM1+LINEW24-I'TMPN48 

+24,23) :GDTO 5000 
SD 2020 FOR R=e TO 21 : X=USR CADR CI10VMEH$) , 

ADR C"¥¥»¥¥¥¥¥¥¥»¥»»¥»¥¥¥»»¥¥¥") , MEMl+2 

4WR,23) :NEXT R 
PV 2825 FOR X=0 TO 3:S0UND X,0,0,8:NEXT X 
HZ 2838 POKE 54276, 0:POKE 559,0:P0KE DLIS 

T+5,INTCMEHl/256] :POKE DLIST+4, MEMl-PE 

EK<DLI5T+5)*256 
LR 2040 X=USR CADR CMOVMEM$), ADR C"V¥¥¥¥¥¥ga 

Me¥o ver¥¥¥¥¥¥¥¥") , MEMl+192 , 23) 
RC 2050 POKE 53277, 0:FOR X=53261 TO 53265 

:POKE X,0:NEXT X:POKE 559,62 
XP 2860 IF SC0REW10>HISC0RE THEN HISCORE= 

SC0RE»10 
IT 2070 POKE 20,2 
ON 2888 IF PEEKC20)>1 THEN 2080 
OX 2090 GOTO 4000 
ZF 3000 GOSUB 7008 
QQ 3018 POKE 559,0 
SP 3020 FOR X=5324S TO 53255: POKE X,0:NEX 

T X 
SZ 3030 DIH MLANG$C90),DL$C3e),INU$C578), 

DAT$C16),SC0RE$C6),R0HC5) 
PG 3040 DIM MBL0FF$C20) :GOSUB 29e88:UBL0F 

F$=MLANG$ 
GE 3050 DIM M0UMEM$C41) : GOSUB 29500 :MOVME 

M$=MLANG$ 
IV 3060 DIM MISCLR$C26) :GOSUB 30008:MISCL 

R$=MLANG$ 
XG 3070 DIH MEMCLR$C36) : GOSUB 30508 :MEMCL 

R$=MLANG$ 
UT 3188 FOR BVTE=0 TO 10: READ DAT: POKE 15 

36+BYTE, DAT: NEXT BVTE 
KM 3110 DATA 72,169,212,141,10,212,141,26 

,208,184,64 
DI 3128 FOR BVTE=1 TO 40: READ DAT: POKE 17 

37+BVTE, DAT: NEXT BVTE 
LF 3130 DATA 252,243,207,63,0,128,8,128,1 

28,2,2,3,3,1,8,8,8,0,0,4,5,6,7,3,76,12 

8 
LA 3140 DATA 64,76,88,64,76,177,64,76,5,6 

5,76,88,65,0 
HE 3150 PB=PEEKC740)-8:CB=PB-4:P0KE 106, C 

B-4 : CA=CB«256 : PA=PB»256 
CE 3160 GOSUB 31888 
QK 3178 X=USR CADR CM0VMEM$), ADR CMLANG$),CA 

MAY A.N.A.L.O.Q. Computing 



^-256,781 
JE 3188 MEM=PA 
SO 3190 FOR SEC=0 TO 7: GOSUB 32000+lOWSEC 

: X=USR CADR CMOVMEM$) , ADR CMLANG$) , MEM, LE 

NCMLANG$)-1) 
YD 3208 MEH=MEM+LENCMLANG$) :NEXT SEC 
RO 3218 X=USR CADR CMOUMEM$), 57344, CA, 1023) 
VL 3220 MEM=CA+512:F0R SEC=8 TO 1; GOSUB 3 

250e+iewSEC : X=USR CADR CMOUMEM$) , ADR CMLA 

NG$} , MEM, LEN CMLANG$) ) 
VM 3230 HEM=MEM+LENCMLANG$) :NEXT SEC 
OR 3248 X=USRCADRCM0UMEM$),CA+128,CA+640, 

336) 
RB 3258 X=USR CADR CMEMCLR$),PA+768, 1288) :P 

OKE 54279, PB:P0KE 623,4 
CD 3278 FOR ByTE=201 TO 208:READ DAT:POKE 

PA«1824+BYTE, DAT: NEXT BYTE 
YN 3280 DATA 16,16,56,56,124,124,198,198 
AB 3290 FOR BYTE=30 TO 38: READ DAT: POKE P 

A+1288+BYTE, DAT: READ DAT:POKE PA+1536+ 

BYTE,DAT:NEXT BYTE 
SS 3300 DATA 15,16,31,24,63,28,186,22,106 

,22,255,31,255,31,56,28,16,8 
CF 3318 FOR BYTE=39 TO 285: POKE PA+768+BY 

TE,192:NEXT BVTE 
ZA 4880 GOSUB 6000 : GRAPHICS 24: GOSUB 7088 

:P0KE 559,0:P0KE 756,CB+2 
MJ 4010 SETCOLOR 0, 4, 14 : SETCOLOR 1,4,6:SE 

TCOLOR 2,15,14:SETC0L0R 3, 4, 10 : SETCOLO 

R 4,7,8 
FB 4020 LEVEL=e:BASES=3:BB=e:SC0RE=e 
ZK 5000 POKE 559, 0:X=USR CADR CMISCLR$),PA+ 

768,255,240) : LEUEL=LEVEL-*'l 
QH 5805 X=USRCADRCUBLOFF$)) 
CU 5010 DLIST=PEEKC560)+PEEKC561)W256!IF 

SCRHOO THEN POKE DLIST+4, SCRL : POKE DL 

IST+5,SCRH 
HH 5020 POKE DLIST+3,86 
MJ 5038 L=PEEKCDLIST+4)+44:P0KE DLIST+5,P 

EEKCDLI5T+5)+CL>255) :POKE DLI5T+4,L-25 

6WCL>2S5) 
TB 5040 FOR X=6 TO 20: POKE DLIST+X, 22 : NEX 

T XiFOR X=24 TO 50: POKE DLIST+X, 14 : NEX 

T X 
EF 5050 MEM7=PEEKC88)+PEEKC89)M256+6e0 
UJ 5060 POKE DLIST+21,78:P0KE DLIST+23,IN 

TCMEM7/256) :POKE DLIST+22, MEM7-INT CMEM 

7/256)*256 
CR 5070 POKE DLIST+31, 78 : POKE DLIST+33,IN 

TCCMEM7+320)/256) ;POKE DLIST+32, MEM7+3 

20-PEEK CDLIST+33)«256 
IR 5088 POKE DLIST+41, 78 :POKE DLIST+43,IN 

T C CMEM7+640) /'256) : POKE DLIST+42, MEM7+6 

48-PEEKCDLIST+43)»256 
OL 5898 POKE DLIST+51, 22 : POKE DLIST+52,22 
RH 5100 POKE DLIST+53, 150: POKE 512,0:P0KE 

513,6;P0KE 54286,192 
KY 5118 POKE DLIST+54,112:P0KE DLIST+55,7 

8;P0KE DLIST+56,PEEKC88) :P0KE DLIST+57 

,PEEKC89) 
FU 5128 POKE DLIST+58, 65 ; POKE DLIST+59,PE 

EKC560):P0KE DLIST+60, PEEK C561) 
PS 5130 IF LEUEL<7 THEN BARLIM=0 : GOTO 518 

8 
EW 5148 TMP=LEWEL-7:IF LEUEL>9 THEN TMP=2 
UI 5158 BARLIM=TMP+l:FOR X=l TO BARLIH;PO 

KE DLIST+20+X,22:NEXT X 
JR 5160 X=USRCADRCM0UMEM$),DLIST+31+ieWTM 

P , ADR CDLS) , 29-10»TMP) 
LY 5170 X=USR CADR CMOUMEM$), ADR CDL$),DLIST 

+22+TMP,29-10»TMP) 
MH 5180 MEMl=PEEKCDLIST+4)+PEEKCDLIST+5)« 

256 : SCRL=PEEK tDLIST+56) : SCRH=PEEK CDLIS 

T+57) 
VC 5190 IF LEUEL=1 THEN POKE 87,1: POKE .88 

,SCRL:POKE 89, SCRH: POSITION 8,8:? »6J" 
SCORE: 8 11 " 
YZ 5288 POKE 559,62 
ML 5210 POKE 87,7:P0KE 89,IMT CMEM7/256) : P 

OKE 88, MEM7-PEEKC89}W256: COLOR 3 
UR 5220 IF BARLIM=3 THEN 5270 
OJ 5230 RESTORE 5260 
KH 5240 FOR X=l TO 10:READ N, XS, Y, XE : FOR 

T=0 TO H-l:FOR Z=0 TO 3: PLOT Z»40+9+XS 
«•» ,v+t:drawto Z«40+9+XE,Y+T:MEXT z ^ 

as 



KU 5245 NEXT T 
LU 5258 NEKT X 
OH 5266 DATA 2, 4/ 0> 17, 2, 3, 2, 18,2, 2, 4, 19, 1 

8,1,6,28,2,1,16,7,2,14,16,20,2,1,18,6, 

2,15,18,28,4,1,28,5,4,16,28,20 
UT 5278 SCR0LL=8:CHANGE=l:SB=8:EF=e:BOTRO 

M=5 : C0ARSE=8 : 5AUCER=0 
AM 5288 LINE=LEVEL-2:IF LINE>8 THEN LINE= 

8 
DR 5298 POKE 54276,8 
LB 5388 POKE 1664,8!P0KE 1665,43:P0KE 166 

6,43:P0KE 1667,255 
US 5310 POKE 1668,58:P0KE 16e9,0:P0KE 167 

0,5:P0KE 1672,2e0:P0KE 1673,235:P0KE 1 

674,240 
W 5320 POKE 1676, 201 -.POKE 1677, 30: POKE 1 

678,30:P0KE 1680, 201 : POKE 1681,3e:P0KE 
1682,30 
BR 5330 POKE 1684, 128:P0KE 1685,0:P0KE 16 

86,5:P0KE 1688,201:P0KE 1689,30:P0KE 1 

690,30 
AZ 5340 POKE 1700,0:P0KE 1701,0;PDKE 1720 

,e:POKE 1721,0 
UQ 5350 POKE 1704,0:P0KE 1705,0!P0KE 1708 

,129:P0KE 1709,1 
VU 5360 POKE 1789,0: POKE 1790,0: POKE 1791 

,128 
VM 5365 POKE 675,15 
FE 5370 INW$="r':IMW$C578J="»";IHg$C2>=IM 

U$ 
NC 5380 RESTORE 5410 
QD 5390 FOR LP=0 TO 4 STEP 2:READ DAT$:IM 

VS CLP»48+28 , LP»48+43) =DATS : IHV$ CLP*48+ 

363,LP»48+378J=DAT$ 
UI 5400 READ DAT$ :INV$ CLPW48-f76, LPM48+91] 

=DAT$ ; INU$ CLPW48+315, LP«48-i'338} =DAT$ : N 

EXT LP 

CE 5418 D ATA h |^ ih ih ih \v |^ l^ l,^■^■■^^'^■■^^'^^■ 
^^'^^'^,frJ=^i^i=^J^J=^J=^Mj.^^iMi[^iMiHiHiMiM 

dl, IJIJIJIJIJIJIJIJ, KLKLKLKLKLKLKLKL 
SC 5428 FOR R=e TO 5 : ROMCR) =8 :NEXT R 
PI 5430 POKE 19,0:P0KE 2e,0:P0KE 53278,0 
LP 5440 POKE 704,15:P0KE 7e5,15:P0KE 786, 

78:P0KE 707,112 
HF 5450 POKE 53248, 128 : POKE 53249,0: POKE 

53250, 5:P0KE 53255,205 
HH 5460 GOSUB 31500 :X=USR CADR (HLANG$) , CA- 

256) 
PV 5470 X=USRCPA,PB,PB) 
FU 5480 POKE 53277,3 
OB 5490 GOTO 1000 

QN 6080 GRAPHICS 0:GOSUB 7008:P0KE 559,0 
BM 6010 D2=PEEKC560)+PEEKC561)M256 
ES 6828 SETCOLOR 4, 7, : 5ETC0L0R 2,7,0:SET 

COLOR 1,9,15:SETC0L0R 3, 4, 8 : SETCOLOR 8 

,12,18 
RO 6030 POKE D2«7,7:P0KE D2+16,6:P0KE D2+ 

25,6 
YU 6040 POKE 752,1 : POKE 82 ,8 ; POKE 83,39:P 

HE 6050 POSITION 28,2:? "Btf Craig Patchet 

t & You" 
UP 6868 POSITION 22,10:? "HI SCORE :":POSI 

TION 37-LEN(STR$(HISC0RE)),10:? HISCOR 

E 
TZ 6070 POSITION 0,19:? "PRESS Start TO B 

EGIN" 
SR 6088 POSITION 22,28:? "tO 1983 Educat 

ional software. Inc." 

ZK 6898 POKE 559,34 

TE 6188 IF PEEK (53279)06 THEN 6180 

AJ 6118 RETURN 

GR 7888 IF PEEK (16)-128>=e THEN POKE 16, P 

EEKC16) -128: POKE 53774, PEEK (16) 

AI 7018 RETURN 

HS 29888 MLANG$="h||EB-a/ MSElbEIS S.E]«"iRE 

TURN 
MH 29580 MLANGS=" hhBDhrClhBDhaahu»'^ |hli£] 

iHrairniiEinijni": RETURN ^^ ,^„„„ 

SU 30000 MLANG$="hhm]hni]hhDhhnJI£]XBnir[a2a 

n»": RETURN 
ON 30500 MLANG$="hhnihnahi3]«HZ]«IiHh[l]ffa7 

raiJTiiirMan *" : return 

GG 31000 MLANG$="BI/niFBa/MEBl/ia3ae dSJl I 



nm Bye-ai^i<i/n!inii i'nE4{n8iiisi/niiB 

mnnKKl^h^l/lMl/LJ]" : RETURN 
PQ 31500 HLANG$="hhuh|i]/ S,E]*": RETURN 
HH 32000 MLttHGS="hhhwSS/hh^ywP\/lt\MS/SSS/m 

E/ET^CEMIS/li M3* B/ay^mCl/" : return 

VO 32010 MLAN G$=" Rm/ pyiIr1/gV8m/rfl/rHTB! 

I Frhll3/nTgl oCT» GyS/sQS/QD WSi/'^ffS/Mi 
/irny mrnwci/ n^jgi/OTTirnyrn^'^HBi" ; return 

MO 32828 HLANG$=^H [i]/hSBiL/8^^^H«a/'^M(!] 

t rign/ iwjy Bii/iWBi# ^hbh o/hC": return 

FL 32030 MLAMG$="Bfc^'*-w(M CB/B 'IE/ a/8na />i 

\SSE3i/i-\S3*33/7B*^3Sli/*W7ESl" : return 

VF 32040 MLANG$="1^M*i«|£/0jE]x [ijEHWAF/ 

[1]+av^^{CySV□«(iQtBx |)■i[]U]<1^eVfXI/^]A3 
/aVQ«[Z£/Bx I) BrSIAE/n]<-Lt!/" I RETURN 
W 32858 MLANG$=" S/14^X |) H]LSl/EU/n3/IiS£/ 

\3/\jS}\ MBoffl/nisay raz ^-rS l/Bi/Si/lH UB/^ 
n^n-i/rascgytn/ m/ffl nsi-n n^tts/" : return 

RC 32860 MLANG$="f3jIIE91/I394-ra/Bi/ 0/9/0 
<CT ■ nofiH/r gjwytB/ Q/a/>MI]i4C]3/IlH)|XM«a 
H/raxgn/=¥3 m?fii/Rni/n <>n-i/gi/" : return 

QU 32870 MLtiHQ$="=,£imMIIiAEAl^>WASDi\ir.L 

bQV": return 

IK 32500 MLAMGS="»»»¥»¥»»HS~ihkEBDGnelP 

H\ "n iHC HUai* Si*-*r» I* fiUniKe l«T**i 
■iAfifSESIi »*! ■»! V ■OB- aa» P -"i " : RETURN 
QE 32518 MLAHGS="*| •»"•!' [3inniP-8» rt »■ Ih ■» 
e¥*VG 44-881 I [O": RETURN 



LISTING 2: BASIC 



VM 180 GRAPHICS 8:? "Make sure you have s 
aved a copy of":? "this progran before 
RUHning it":F0R X=l TO ie5e:NEXT X 

so 118 ? :? 

RO 128 DIM LN(8):F0R X=l TO 8: READ DAT;LN 
(X)=DAT:NEXT X 

PE 130 DATA 20,41,26,36,112,11,657,128 

OJ 140 FOR X=l TO 8:T0T=e:N=0:G0SUB 1080 

NH 150 FOR N=l TO LN (X) : READ DAT:TOT=T0Tt 
DAT 

HP 160 IF N/25<>INT(N/25) THEN 198 

QP 170 t=tot:tot=o:read dat:if datOt the 

N ? ". . .ERROR"; STOP 
QV 180 GOSUB 1000 
JM 198 NEXT N:READ DAT: IF DATOTOT THEN ? 

". . .ERROR": STOP 
LH 200 NEXT X 
AJ 210 RESTORE 20000 
OV 220 FOR X=l TO 8 :L=28508+588WX: GOSUB 1 

a f g 

bp 230 for n=l to ln(x):read dat:? chr$(2 
7);chr$(DAT); 

TJ 240 IF N/25=INT(N/25) THEN READ DAT 
NF 250 IF N/90=INT(N/90) THEN GOSUB 1028: 

LrL+lO; GOSUB 1010 
RQ 268 NEXT N:READ DAT: GOSUB 1020 
HA 278 NEXT X 
OH 280 END 
LM 1888 ? :? "CHECKING LINE ";1988e+1888W 

x-i-ieMiNT (N/'25) ; : return 

DJ 1818 GRAPHICS 8:P0SITI0H 2,4:? L;" MLA 

NG$="; CHR$ (34) ; : RETURN 
CU 1020 ? CHR$ (34);": RETURN":? "C0NT":P0S 

ITION 0,8: POKE 842, 13: STOP 
UF 1030 POKE 842, 12: RETURN 
UG 20008 DATA 104,162,228,160,95,169,6,32 

,92,228,162,228,160,98,169,7,32,92,228 

,96,2548 
OY 21008 DATA 104,104,133,207,104,133,286 

,184,133,289,104,133,208,104,170,160,2 

55,130,208,2,104,168,177,206,145,3719 
EM 21818 DATA 288,136,192,255,288,247,230 

,207,230,209,202,224,255,200,233,96,33 

40 
TH 22000 DATA 104,104,133,207,104,133,206 

,104,104,168,104,104,133,208,177,206,3 

7,200,145,206,136,192,255,208,245,3931 

MAY A.N.A.L.O.G. Computing 



YN 22810 DATA 96,96 

JJ 23888 DATA 184,184,133,284,184,133,283 

,184,178,169,8,168,255,224,8,288,4,184 

,168,169,8,145,283,136,192,3396 
PM 23818 DATA 255,288,249,238,284,282,224 

,255,288,234,96,2365 
FT 24888 DATA 173,251,6,248,184,173,252,6 

,141,4,212,173,253,6,141,5,212,173,254 

,6,248,79,173,48,2,3327 
JY 24818 DATA 133,284,173,49,2,133,285,16 

8,3,177,284,281,65,248,61,281,1,248,52 

,41,112,281,64,144,48,3114 
IX 24028 DATA 281,88,144,42,288,173,255,6 

,48,18,177,284,24,216,189,254,6,145,28 

4,288,177,284,185,8,145,3337 
SL 24838 DATA 284,144,28,177,284,56,216,2 

37,254,6,145,284,288,177,284,233,8,145 

,204,144,2,288,288,288,288,3984 
NY 24048 DATA 189,169,8,141,254,6,141,251 

,6,76,95,228,1556 
IE 25088 DATA 184,184,178,184,168,169,6,3 

2,92,228,96,1273 
HH 26888 DATA 184,184,184,141,188,6,184,1 

84,141,228,6,141,231,6,141,234,6,141,2 

37,6,238,237,6,141,248,3235 
HO 26818 DATA 6,238,248,6,169,127,141,199 

,6,162,9,168,4,173,47,2,41,16,248,9,16 

9,255,141,199,6,2765 
FA 26828 DATA 162,19,168,8,148,208,6,168, 

9,189,286,6,153,189,6,282,136,16,246,1 

69,7, 174, 248, 6, 168, 2969 
OH 26838 DATA 188,32,92,228,96,32,238,6,1 

89,152,6,24,189,288,6,168,285,199,6,14 

4,3,172,199,6,189,2889 
BK 26848 DATA 152,6,56,237,280,6,141,281, 

6,136,177,284,288,145,284,136,240,5,28 

4,281,6,176,242,169,8,3458 
BE 26858 DATA 145,284,96,32,238,6,189,152 

,6,56,237,288,6,168,176,2,168,8,189,15 

2,6,24,189,288,6,2759 
HY 26868 DATA 141,281,6,288,177,284,136,1 

45,204,200,284,199,6,248,7,284,281,6,1 

44,239,248,237,169,8,145,3855 
TN 26878 DATA 284,96,138,72,162,4,32,238, 

6,184,178,189,168,6,56,237,280,6,168,1 

76,2,168,8,189,168,2935 
HO 26888 DATA 6,24,189,288,6,141,281,6,13 

6,177,284,61,282,6,145,284,288,288,189 

,282,6,73,255,49,284,3286 
OF 26898 DATA 136,136,17,284,145,284,200, 

200,204,199,6,176,7,204,201,6,144,221, 

248, 219, 189, 282, 6, 49, 284, 3719 
UU 26188 DATA 145,284,136,189,282,6,49,28 

4,145,284,96,138,72,162,4,32,238,6,184 

, 178, 189, 168, 6, 24, 189, 2994 
IH 26118 DATA 288,6,168,285,199,6,144,3,1 

72,199,6,189,168,6,56,237,288,6,141,28 

1,6,288,177,284,61,3152 
BK 26128 DATA 202,6,145,284,136,136,189,2 

82,6,73,255,49,284,280,200,17,284,145, 

284,136,136,248,5,284,201,3699 
CO 26130 DATA 6,176,224,189,282,6,49,284, 

145,284,288,189,282,6,49,204,145,284,9 

6,189,189,6,133,204,24,3445 
GY 26148 DATA 216,173,188,6,125,194,6,133 

,285,169,8,133,77,96,162,8,188,128,6,4 

8,186,185,128,2,41,2787 
MS 26158 DATA 8,288,23,189,148,6,221,136, 

6, 248, 43, 169, 8, 133, 77, 254, 148, 6, 189, 14 

8,6,157,8,208,288,2931 
HH 26168 DATA 28,185,128,2,41,4,288,21,16 

9,8,133,77,189,148,6,221,132,6,248,9,2 

22,148,6,189,148,2652 
HY 26178 DATA 6,157,8,208,188,128,6,185,1 

28,2,41,2,288,17,189,152,6,221,144,6,2 

48,38,254,152,6,2668 
UX 26188 DATA 32,229,6,138,16,21,185,128, 

2,41,1,288,14,189,152,6,221,148,6,248, 

6,222,152,6,32,2385 
EX 26198 DATA 226,6,232,224,4,288,148,162 

,8,189,164,6,248,83,189,168,6,248,58,1 

6,23,222,156,6,222,3182 
KF 26288 DATA 156,6,189,156,6,157,4,288,2 

81,47,176,32,169,8,157,164,6,248,53,25 

MAY A.N.A.L.O.G, Computing 



4,156,6,254,156,6,2959 
EL 26210 DATA 189,156,6,157,4,288,201,288 

, 144, 9, 169, 8, 157, 164, 6, 240, 106, 208, 196 

,189,172,6,240,57,16,3208 
XO 26228 DATA 23,222,168,6,222,160,6,32,2 

32,6,189,168,6,281,16,176,39,169,8,157 

,164,6,248,74,254,2920 
AI 26230 DATA 160,6,254,168,6,32,235,6,18 

9,168,6,24,216,185,16,285,199,6,176,4, 

41,248,288,7,169,2830 
AX 26248 DATA 8,157,164,6,248,42,189,176, 

6,61,8,208,248,13,169,255,157,176,6,15 

7,184,6,169,8,157,2938 
HV 26258 DATA 164,6,189,188,6,61,8,208,24 

8,13,169,255,157,188,6,157,184,6,169,8 

, 157, 164, 6, 232, 224, 3141 
KA 26268 DATA 4,288,145,76,98,228,6,759 
NF 27888 DATA 8,8,8,8,8,8,8,8,1,3,7,13,15 

,2,5,18,128,192,224,176,248,64,168,88, 

1,1321 
MD 27818 DATA 3,7,13,15,5,8,4,128,192,224 

,176,248,168,16,32,8,4,15,29,31,23,28, 

2,16,32,1483 
PT 27820 DATA 240,184,248,232,48,64,2,28, 

23,29,31,15,4,8,64,48,232,184,248,248, 

32,16,3,15,31,2245 
CH 27838 DATA 25,31,6,9,48,192,248,248,15 

2,248,96,144,12,3,15,31,25,31,13,24,12 

,192,240,248,152,2437 
XA 27840 DATA 248,176,24,48,8,9,5,8,12,8, 

5,9,8,32,64,8,96,8,64,32,16,16,56,56,1 

24,1092 ^. 

UU 27050 DATA 124,198,198,528 r1 
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'The most useful program for the Atari since Print Shop!' 



FORMS GENERATOR 

for the Atari 800, 800XL, 65XE, 130XE 

Designed by Jeff Brenner, columnist for Computer Shopper 
magazine, of "Applying The Atari" fame, and auttiorof book 
and magazine articles in COMPUTE!. ANALOG and otfiers. 
LOOK WHAT YOU CAN DO WITH FORMS 
GENERATOR: Purchase merchandise by mail? Next 
time, send a customized purchase order formi Does 
your home or business ever need statements, in- 
voices, proposals, job work orders, gift certificates, 
etc.? No problem! Use FORMS GENERATOR'S scrolling spreadsheet- 
style screen to design almost any form to suit your exact needs. What 
you see on-screen is what you get on paper! Use the text mode with any 
80-column printer, or the high-res graphics mode with the Epson, 
Gemini/Star, OI<idata, Panasonic or Prowriter for remarkably realistic 
forms. BUT THAT'S JUST THE BEGINNING: Once you've designed a 
form, you can program FORMS GENER/1 TOR to make all calculations 
automatically! Imagine: after you enter quantities, descriptions and 
prices, FORMS GENERATOR moves about the form calculating ex- 
tended prices, subtotals, and even the sales tax! Like magic! (Sample 
invoices included). You can also use FORMS GENERATOR ior record 
keeping, since you can save filled forms to disk! 

NAMED A "BEST BUY" IN 8-BIT SOFTWARE BY ANTIC MAGAZINE, JANUARY 1988, 

Our "down to planet Earth" price: Only $23,95 (product #ATA611), 



FOR C.O.D. ORDERS CALL (516) 932-5330 



Send coupon to: 

Tuuenty-Fifth 
Century^" 




D YES! Please rush me FORMS GENERA TOR (product 
ttATA611) with complete documentation, 90-day free 
replacement warranty, full customer service support and 
20-page Atari software catalog. I am enclosing $23.95 
-t- S3. 50 shipping and handling. 
DCheck/Money Orderenclosed nc.OD. (add$2.50) 

Name 



City- 
state . 



-Zip. 



Softujore Division 
Depl. AT 2 

234 Fil^h nvenuc 

Neuj Vo^kVv 'lOOOl DEALER INQUIRIES INVITED., 

New York State residents add 8% sales tax, 
•The Print Shop and Atari are registered trademarks of Broderbund Software and Atan 
Corp.. respectively. — Prices and availability subject to change w ithout not i ce. ^^ 

CIRCLE #101 ON READER SERVICE CARO. 




bv TOM HUDSON 



With this issue, ANALOG begins a new 
column. Boot Camp will examine assembly 
language on the ATARI computer systems, 
while presenting useful subroutines to illus- 
trate the techniques discussed in the column. 

The Ground Rules 

Before starting to learn assembly language, 
let's lay down the ground rules. 

First, you should have a good reference 
guide to assembly-language operation codes. 
I suggest 6502 Assembly-Language Program- 
ming by Lance Leventhal (OSBORNE/Mc- 
Graw-Hill) . Of course, there are many such 
books, and the final choice of what book to 
use is up to you. Just be sure it covers the 
6502 operation codes clearly and completely. 

Second, since many program concepts will 
be shown in BASIC, you should have a work- 
ing knowledge of BASIC. Assembly language 
requires a solid background in programming 
logic, and working in BASIC helps develop 
this skill. In addition, assembly- 
programming concepts can be grasped more 
easily if they are first shown in a language 
the reader is familiar with, such as BASIC. 
This should not be a problem for most read- 
ers, since BASIC is usually the first language 
learned by personal-computer owners. There- 
fore, from this point on, I will assume that 
all readers of this column are fluent in 
BASIC. 

Third, you will need an assembler/editor 
package. All assembly-language listings in 
this column will be compatible with the 



ATARI Assembler/Editor cartridge and OSS's 
EASMD and MAC/65 assemblers. You can 
use other assemblers, but some code conver- 
sion may be necessary. 

Fourth, you should be able to read flow- 
charts. Flowcharts are a good way to visual- 
ize a program's operation before actually 
writing any code. 

Numbering Systems 

Everybody is familiar with the decimal 
numbering system. We all use this number- 
ing system in everyday mathematical calcu- 
lations. The word "decimal" is derived from 
the Latin decem, or ten. Therefore, this num- 
bering system is known as "Base 10", since 
there are ten digits, 0-9. Let's take a closer 
look at the decimal numbering system. 

Figure 1 shows how a six-digit Base 10 
number can be broken down into individual 
digits. Each digit can range from 0-9 in value. 

10' 10* 10' 10' 10' 10° POSITION VALUE 



2 6 5 7 3 




3x 10» = 3 

7 X 10' = 70 

X 10' = 

5 X 10' = 5000 

»-6 X 10* = 60000 



i*-2 X lO" = 200000 



Figure 1. 



265073 (BASE 10) 
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Above each digit is tiiat digit's position 
value. The position value is the amount each 
digit is multiplied by to get the actual value 
of the digit. You will notice that the position 
values are shown in powers of 10, since we 
are working in Base 10. The I's position is 
shown as 10 to the power. Any time a num- 
ber is raised to the power, the result is 1. 
Therefore, to get the value of the 3 in the last 
position of the number, we would calculate: 

DIGIT X POSITION VALUE = VALUE 

In this case the calculation would be: 

3x1=3 

We would conclude that the last position 
in the number would have a value of 3. 

The next position, containing the digit 7, 
has a position value of 10 to the first power, 
or 10. The calculation of this digit's value 
would be: 

7 X 10 = 70 

When we repeat this calculation for each 
digit in the number and add all the values, 
we will obtain the value of the number, 
265,073 (Base 10). 

Here's another concept that we may not 
think about, but is very interesting. What 
happens to the number if we shift all the digits 
to the left, as shown in Figure 2? 



10« 10» 10< 10" 10' 10' 10« POSITION VALUE 
2 6 S 7 




7x 10' 



700 



X 10" = 

► 5 X 10* = 50000 
fr-BxIO'^ EOOOOO 

► 2 X 10* = 2D00D0O 



2650730 (BASE 10) 



Figure 2. 

MAY A.N.A.L.a.O. Computing 



By looking at the final results, you can see 
that the number has effectively been multi- 
plied by 10, with a result of 2,650,730 (Base 
10)! 

Why did this happen? The answer is actu- 
ally very simple. When each digit is shifted 
to the left, its position value is increased by 
a power of 10. The resulting number will be 
ten times larger than if it were not shifted. 
Try shifting the number to the right and see 
what happens. 

What Do We Care About All 
This? 

Now that we know exactly how our nor- 
mal numbering system works, let's apply 
what we know to a different system, binary. 

The word "binary" comes from the Latin 
bis, or "double". As you may know, digital 
computers work with two electrical states, on 
and off. This situation is perfectly suited for 
the binary numbering system, or Base 2. 

The binary numbering system uses only 
two digits, and 1, but the principle of the 
numbering system is the same as Base 10. 
Figure 3 shows a number in Base 2 and how 
it can be converted to Base 10. 

2' 2' 2' 2' 2' 2= 2' 2" POSITION VALUE 
10 1110 11 



\}^: 



■^1x2'= 8 
i«- 1 X 2< = 16 



-► 1 X 2s = 32 
-*- X 2* = 
-►• 1 X 2' = 128 



187 (BASE 10) 



Figure 3. 



Once again, the number is shown with the 



position values above each digit in the num- 
ber. In Base 2, you will notice that the posi- 
tion values are powers of 2. This means that, 
unlike the decimal progression of 1,10,100, 
etc. the binary system has a progression of 
1, 2, 4, 8 and so on. As a result, the number 
10111011 (Base 2) is 187 in Base 10. Figure 4 
shows the binary equivalents of the numbers 
0-19. Try using the method shown in Figure 
3 to convert these numbers to the Base 10 
equivalents shown. 



BASE 10 


BASE 2 


BASE 10 


BASE 2 








10 


1010 


1 


1 


11 


toil 


2 


10 


12 


1100 


3 


11 


13 


1101 


4 


100 


14 


1110 


5 


101 


15 


nil 


6 


no 


16 


10000 


7 


111 


17 


10001 


8 


1000 


18 


10011 


9 


1001 


19 


10011 



Figure 4. 

Remember how a Base 10 number multi- 
plied by 10 when we shifted it left one digit? 
Let's look at how a binary number is affect- 
ed by such a shift. Figure 5a shows the num- 
ber 7 in binary before the shift and Figure 
5b shows the number after the shift. 



23 2' 2' 2° 
111 




POSITION VALUE 



1 X 2° = 1 



1 X 2' = 2 



7 (BASE 10) 



Figure 5a. 



23 2' 2' 2° POSITION VALUE 



1110 




X 2° = 

1 X 2' = 2 



14 (BASE 10) 



Figure 5b. 



The number has been multiplied by 2! By 
examining this result and the above shift in 
Base 10, we can see that by shifting the digits 
in a number left to right, we multiply or di- 
vide the number by its base number. This 
concept will come in very handy in later in- 
stallments of this column, so keep it in mind. 

"Funny" Numbers 

The mechanics of the binary numbering 
system are extremely important, but they can 
cause some problems. 

Let's say you want to look at what is in 
Memory Location 33011, but don't want to 
give the number in decimal for some reason. 
The most logical choice, as far as your com- 
puter is concerned, is binary. Unfortunately 
for us humans, this number comes out as 
1000000011110011, and is cumbersome, to say 
the least. We don't like to handle numbers like 
this— there are just too many chances to make 
a mistake. 

Fear not! There is yet another numbering 
system that is compatible with both our friend 
the computer and our human limitation for 
handling large numbers. What is this system, 
you ask? It is called Base 16, or hexadecimal. 

We have already noted that Base 10 uses 
ten digits, 0-9, and that Base 2 uses two digits, 
0-1. Naturally, then, it follows that Base 16 
uses sixteen digits. 

But wait a minute! Since we humans nor- 
mally use only the ten digits from the decimal 
system, we don't have enough for Base 
16— we'll have to come up with six more. 
Rather than invent six new digit symbols, 



we'll use the letters A-F, which are already 
in existence. Figure 6 shows the 16 digits used 
in hexadecimal and their decunal equivalents. 



BASE 10 



BASE 16 




1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 




1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 



Figure 6. 

Once again, the principle of the hex- 
adecunal (hex) numbering system is the same 
as the other systems we have examined so far; 
the only difference is that the letters A-F must 
be thought of as the numbers 10-15. Figure 
7 shows the conversion of the hex number 
$F4BE (all hex numbers should be preceded 
by a "$") to decimal. 

16= 16^ 16' 16° POSITION VALUE 




So how does expressing numbers in hex 
help us avoid binary monstrosities? It's easy. 
The number 33011 (1000000011110011 in bi- 
nary) is $80F3 in hex. Obviously, this is a 
much easier number to remember than its bi- 
nary equivalent. 

Another interesting fact is that binary num- 
bers are very easy to convert to hex. First the 
binary number must be divided into groups 
of four digits, from right to left. Then each 
group of four digits (ranging in value from 
0-15) can easily be converted to the cor- 



responding hex digit 0-F. Figure 8 illustrates 
this technique. 

BINARY NUMBER: 111100111011 

SPLIT: 1111 0011 1011 




= $F 



HEX VALUE: $F3B 

Figure 8. 



Bytes and Bits 



All readers who have owned their com- 
puters for more than a few days have at least 
heard of the terms "byte" and "bit". Usual- 
ly this term pops up when the memory ca- 
pacity of the computer is being discussed. 

The byte is the unit most often used when 
referring to memory size. If your system has 
"16K" of memory, it has 16 x 1024 bytes, or 
16384 bytes total. Each byte is made up of 
eight bits (short for binary digits). Each bit 
can be either off or on, corresponding to the 
and 1 digits in the binary numbering sys- 
tem. With eight digits, this means that each 
byte can have 2 to the 8th power (or 256) 
combinations. This is why BASIC limits 
values in the POKE command to the range 
of 0-255. 

In the process of learning assembly lan- 
guage, we will learn to manipulate the 
memory of your computer to do the things 
we want. Study these concepts carefully as 
they will be used in almost every assembly- 
language program you write. 

How Assembly Works 

In BASIC, a programmer can simply type 
in a program, type RUN, and the computer 
will begin executing the program immediate- 
ly. If there is a problem, the programmer 
presses Break, finds the error and runs the 
program again. This makes programming 
very easy, and almost everyone is happy. 

Yes, I said almost everyone. 

Unfortunately for budding game program- 
mers, a kind of brick wall soon appears on 
the happy road to the ultimate game. These 
programmers soon find that BASIC is far too 
slow to handle the complex graphics and 
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game logic necessary for an arcade-style 
game. At the very least, assembly-language 
subroutines are necessary to speed things up. 

Why is BASIC so slow? Inside, the com- 
puter is a device called a 6502 microproces- 
sor. This little chip of silicon is what makes 
your computer work. It is capable of perform- 
ing hundreds of thousands of operations per 
second, and does so every second your com- 
puter is powered on! 

Sadly, all this computing power is lost as 
soon as a BASIC cartridge is inserted into 
your machine. You see, the microprocessor 
doesn't understand a single word of English, 
and the BASIC cartridge must act as an in- 
terpreter. 

All of this interpreting takes time, and in- 
stead of doing the work you want, the poor 
microprocessor winds up spending most of 
its time translating BASIC into a language it 
can understand: binary. And this translation 
doesn't happen just once— it happens every 
time a BASIC command is executed! What 
a waste. 

Assembly language, on the other hand, 
uses what is known as an assembler to per- 
form this translation just once. The program- 
mer writes a program in a special format. 
This is known as the source code. When 
ready to execute the program, the program- 
mer processes it with an assembler, which 
translates the source code into object code, 
which is the actual binary machine-language. 
This code can be loaded at any time and ex- 
ecuted as fast as the computer can go. It only 
has to be assembled once. 

There are a few trade-offs involved when 
using assembly language, however. 

First, the programmer must re-assemble a 
program each time a change is made. This 
can take quite a bit of time when a large pro- 
gram is involved. For this reason, it is a good 
idea to flowchart each program before writ- 
ing any code. This helps reduce logic errors. 

Second, the programmer must know where 
the program will be located in memory. Since 
the computer's operating system has certain 
needs, the programmer must be aware of 
what memory locations are available. 

Third, errors can be hard to find. When 
a program is executing at hundreds of thou- 
sands of operations per second, an error can- 
not always be easily traced to a certain 
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instruction. For this reason, a good debug- 
ging package is a must. 

Fourth, all arithmetic must be handled ex- 
plicitly by the programmer. Assembly lan- 
guage does not have square root, sine or 
cosine functions. It cannot multiply or even 
divide! Unless the programmer specifies 
otherwise, the addition and subtraction in- 
structions can only produce numbers from 
-128 to 127. In the course of this column, 
we will examine the arithmetic functions that 
are possible in assembly language and how 
they are coded. 

This may sound like a lot of limitations, 
but the 6502 processor allows the program- 
mer to use the computer's built-in operating 
system directly, which BASIC has a hard time 
doing. And, of course, assembly language 
can be thousands of times faster than BASIC, 
allowing the programmer to write real-time 
simulations and arcade-style games. 

Now that we've laid the groundwork for 
assembly-language programming, let's look 
at the 6502 itself. 

Chip Ojf the Old Block 

The 6502 processor chip has six registers 
that we are concerned with. These registers 
hold specific information and provide work 
areas for the prograiraner, and are shown in 
Figure 9. 



3 ACCUMULATOR (A) 
"J INDEX REGISTER X (X) 
H INDEX REGISTER Y (Y) 
H PROGRAM COUNTER (PC) 
^ STACK POINTER (SP) 
STATUS REGISTER (P) 



^ 



N V B O I ZC 



Figure 9. 

The accumulator (A) is the most important 
register as far as the programmer is con- 
cerned. It is used for all arithmetic operations 
and most data manipulation. The accumula- 
tor is used more than any other register. 

The index registers (X and Y) are used to 
hold memory indexes, counters, or offsets 
into tables. They can also be used as tem- 
porary storage areas. 



The program counter (PC) is used by the 
6502 to keep track of what instruction is be- 
ing executed. This register is 16 bits long, 
enabling it to point to any byte in memory 
(up to 65535, or 64K). Since this register is 
maintained by the 6502, we will not be 
referencing it very often. 

The stack pointer (SP) is used by the 6502 
to keep track of a temporary storage region 
known as the stack. The stack holds subrou- 
tine return addresses and other temporary 
data. Since this registration is maintained by 
the 6502, we will not be referencing it very 
often, either. 

The processor status register (P) is made 
up of seven individual "flags", or indicators, 
which inform the programmer of the 6502 's 
current status. 

The sign flat (N) is when the result of 
an operation is positive, and 1 when the result 
is negative. 

The overflow flag (V) is set to the 
exclusive-or of Bits 6 and 7 of the result of 
an arithmetic operation. The exclusive-or will 
result in a TRUE result if either bit being 
evaluated is TRUE, but not if both are TRUE. 
The overflow flag is rarely used, and is not 
important at this point. 

The break flag (B) is set to I when a BRK 
instruction is executed. We will be using the 
instruction during program testing to stop 
program execution. 

The decimal mode (D) flag is used to tell 
the processor to use either binary (0) or 
binary-coded decimal (1) arithmetic. This flag 
is important, and the programmer must be 
aware of its setting at all times. 

The interrupt flat (I) enables or disables 
system-interrupts, depending on its setting. 

The zero flag (Z) is set to 1 when any arith- 
metic or logical operation produces a zero 
result. A non-zero result sets the flag to 0. 

The carry flag (C) holds carries out of add, 
shift, and rotate instructions. It is also used 
as a borrow flag in subtraction operations. 
This is a very important flag, and will be dis- 
cussed in detail later. 

Next issue, we'll cover the different ways 
instructions can address memory, and start 
studying arithmetic operations, subroutines, 
and several other areas. Until then, study 
what has been covered here until you under- 
stand it thoroughly. H 
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by Michael A. Banks 

Saving Time and Money 

I've been doing a lot of thinking about money lately, due mainly to the fact that 
my daughter, Susan, starts college this September. Those of you in similar situa- 
tions (or attending college yourself) know the feeling. Even with lots of scholar- 
ship and grant money, there are expenses. . . 

I'm also buying new computer equipment, looking to move to a new home, and 
doing other things that shouldn't be possible on my budget, but somehow are. But, 
what the heck, that's part of being American, isn't it? 

Thinking about money naturally prompted some thoughts about the cost of being 
online. Budget-conscious as I am, I couldn't help but be inspired to turn my mind 
to how Atari SIG members can save money. So, this month Til pass along some tips 

that will help you save money and, not incidentally, make 
being online a more pleasant experience— literally 
from sign-on to sign-off! 



//;» 
.-'.<?'' 



Si^nin^ on and off 

Setting a default menu: You can eliminate the 
time spent moving from the DELPHI main 
menu and the Groups & Clubs menu by set- 
ting your default menu to the Atari SIG. 
The default menu is a setting that 
causes you to move immediately to 
a pre-selected menu at sign-on. 
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With a default menu active, you see no in- 
tervening menus or prompts, and you don't 
have to type any commands. You also get 
there faster! 

To set the default menu to take you direct- 
ly to the Atari SIG whenever you sign on, 
type USING SET from the DELPHI main 
menu (or, GO USING SET from the Atari 
SIG menu). This takes you through the Us- 
ing DELPHI menu to the Settings menu, 
where you should type DEFAULT. You'll be 
prompted to enter a default menu: type GR 
AT and you're all set. The next time you sign 
on (and every time thereafter, unless you 
change this setting), the first thing you'll see 
following the DELPHI greeting will be the 
Atari SIG menu. 

(To return to the Atari SIG aft.er setting 
your default menu, type EXIT twice, then GR 
AT. Or, you can simply type GO GR AT at 
the SETTINGS > prompt.) 

Signing off: Many DELPHI users think 
they have to sign off from the DELPHI main 
menu. This isn't so; you can sign off DEL- 
PHI at almost any prompt by typing BYE or, 
at some few prompts, /BYE. 

Type BYE at all major prompts except 
Mail. (You must exit Mail before you can sign 
off.) If you're in Conference, type /BYE. 
You'll be signed off immediately, without 
having to back through previous menus. 

Usin^ the Forum 

Capturing messages for offline reading: If 
you're a frequent Forum user, you know that 
reading all or most new Forum messages each 
time you enter the Atari SIG can be quite 
time-consuming. Fortunately, there's a way 
to cut the time you spend online viewing new 
messages by half or more. Simply capture all 
new Forum messages, read them offline, and 
then select the messages to which you wish 
to reply at your leisure. Messages can be 
made to scroll by far faster than you can read. 

The process is easy— and you don't even 
have to press Return after each message. 
First, go to the Forum, and open your cap- 
ture buffer or set a capture-to-disk file. Then, 
type READ NEW NS at the FORUM > 
prompt. The "NS" specification in the com- 
mand displays all new messages nonstop. 

If you're not sure you want to see all the 
new messages, capture a directory for offline 
browsing with the command DIR NEW NS. 



(You can stop the nonstop display of mes- 
sages or a directory with a Control-0.) 

Cutting things down to size: Many Atari 
SIG members find that they're not interested 
in all the message topics available. If this is 
the case for you, type TOPIC and "de-select" 
the topics that don't interest you at the menu 
that is displayed. (Follow the prompts.) This 
eliminates all messages under de-selected 
topics— which means you won't have to view 
them, even in a directory. 

Replying offline: Once you've read captured 
Forum messages offline, you may find there 
are some to which you wish to reply. Rather 
than signing on and typing your replies in, 
you can compose them offline and insert 
them into Forum messages by uploading 
them. (After all, your computer can send text 



Make the 
DELPHI Connection! 

As a reader of ANALOG Computing, you 
are entitled to take advantage of a special 
DELPHI membership offer. For only $19.95 
plus postage and handling ($30 off the stan- 
dard membership price!), you will receive a 
lifetime subscription to DELPHI, a copy of 
the SOO-pagt DELPHI: Tlie Official Guide by 
Michael A. Banks and a credit equal to one 
free evening hour at standard connect rates. 
Almost anyone worldwide can access DEL- 
PHI (using Tymnet, Telenet or other net- 
working services) via a local phone call. 
Make the DELPHI connection by signing up 
today! 

To join DELPHI: 

1. Dial 617-576-0862 with any terminal or PC 
and modem (at 2400 bps, dial 576-2981). 

2. At the Username prompt, type 
JOIN DELPHI. 

3. At the Password prompt enter ANALOG. 

For more information, call DELPHI Mem- 
ber Services at 1-800-544-4005, or at 
617-491-3393 from within Massachusetts or 
from outside the U.S. 

DELPHI is a service of General Videotex 
Corporation of Cambridge, Massachusetts. 



much faster than you can type it online! And 
you have the added convenience of being able 
to use the text editor of your choice offline.) 

There are a couple of ground rules to fol- 
low. First, the replies must be in 7-bit ASCII 
text. And, your communications software 
must be able to transmit (upload) the files as 
ASCn, not binary, text. (And be sure to note 
the numbers of the messages to which you 
intend to reply and to give your reply files 
appropriate names.) 

Once you've prepared your replies, sign on 
to DELPHI, enter the Forum, and read the 
first message to which you're going to reply. 
Then type REP, press Return, and instruct 
your program to upload the reply for that 
message. After your reply file has been sent, 
enter a Control-Z. Repeat the procedure with 
each message for which you've prepared a 
reply. 

This technique can also be used to add new 
messages. The only differences are that you'll 
have to type ADD, and enter the message ad- 
dressee, subject and topic before you can up- 
load your message. 

E-Mail 

The techniques just described for reading 
and composing Forum messages can be ap- 
plied to E-mail, though the commands are 
somewhat different. 

Getting there: You don't have to be at the 
Atari SIG main menu to get to Mail. You can 
go to Mail from any database prompt, as well 
as from the Forum and from a Conference 
group by typing /MAIL. 

Reading E-mail offline: To display all new 
mail-messages nonstop, enter Mail, open 
your capture buffer and type EXTRACT TT 
/ALL. This will display all mail-messages 
nonstop. 

Unless you want to keep a message online 
for later reference, it's a good idea to delete 
all the messages once you've captured them 
(and thus avoid storage charges). To do this, 
type DELETE /ALL. 

Offline replies: You should compose offline 
E-mail replies and original messages as 7-bit 
text files, which can up uploaded to an 
"open" message using ASCII text upload 
connmands. You will, of course, have to type 
SEND and enter the message addressee and 
subject; or you can type REPLY after dis- 
playing an existing message to open a reply. 
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This technique can also be used with origi- 
nal messages. 

Sending and receiving E-mail via work- 
space: If you have a really long reply or mes- 
sage to send (IK or larger), it's usually faster 
and more accurate to upload the file to your 
workspace using a binary file-transfer pro- 
tocol such as Xmodem or Kermit, then send 
it from the MAIL> prompt. 

Once a file is in your workspace, you can 
send it as a mail message by typing SEND 
< filename.ext > at the MAIL> prompt 
(where < filename.ext > is the filename and 
extension of the uploaded file. Note that you 
must include the " . " even if the file doesn't 
have an extension.) To send a file in reply to 
a message that's still in your Mail file, read 
the message, then type REPLY 
<filename.ext>. 

Sometunes, due to length or other reasons, 
you may wish to download an E-mail mes- 
sage using a binary protocol. You can't do this 
at the MAIL > prompt, but you can copy the 
message to your workspace and download it 
from there. Read the first screen of the mes- 
sage, then type FILE < filename > . A new 
file will be created in your workspace; you 
can then download the file in whatever man- 
ner you wish. (Here again, you'll want to de- 
lete the original E-mail message. And 
remember to delete all uploaded and 
filed/downloaded messages from your work- 
space once you're done with them.) 

Database Timesavers 

Search!: The best way to save time in the 
databases is to plan ahead. If you are look- 
ing for certain kinds of files, determine in 
which database(s) the files are likely to be 
found, and determine what keywords you'll 
need to use in search for the files before you 
sign on. 

File-transfer protocols: An important 
timesaving element is the file-transfer pro- 
tocol you use. Determine, through research or 
experimentation, which protocol is fastest for 
you, then set it as your default file-transfer 
technique. (Type DOWN MENU at the data- 
base ACTION > prompt, and follow the 
prompts to do this.) 

Database shortcuts: As with messages, you 
can capture database directories and descrip- 
tions faster than you can read them. 

You can capture an entire database direc- 
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tory by typing DIR NS. Note, however, that 
this can be a lengthy process, as the Atari SIG 
databases contain a large number of files. So, 
you'll probably want to do a search first, and 
capture only a directory of items that meet 
your criteria. Once you capture a directory, 
you can determine at leisure which items you 
wish to view descriptions of. 

Changing database topics: When you 
change database topics, don't back out to the 
Atari SIG main menu. Instead, type SET fol- 
lowed by the name of the desired database 
topic; you'll move immediately to that topic, 
whether you are at the database name prompt 
or the ACTION > prompt. 



Miscellany 



Some DELPHI members are unaware that 
two of the most commonly used general SIG 
commands— WHO and SEND— don't have to 
be issued at the SIG main menu. You can use 
WHO and SEND at any SIG prompt (even 
in Conference) by preceding them with a "/" 
like this: /WHO and /SEND. 

/WHOIS < membername > also works at 
almost all SIG prompts, as do /TIME and, 
as previously noted, /BYE. 

Conscientious use of the tips I've provid- 
ed here can add up to quite a savings in 
money, and— equally important— make your 
time on DELPHI more efficient. I also sug- 
gest that you make liberal use of the HELP 
command (quite often you'll discover infor- 
mation on new features). 

If you're relatively new to DELPHI, or 
haven't been online in a while, you'll find the 
Guided Tour of benefit. This is the same tour 
that you were "walked through" the very first 
time you signed on to DELPHI as a new user. 
You can take the tour any time you wish by 
typing USING GUIDE from the DELPHI 
main menu. 

If you don't already have them, I recom- 
mend that you obtain the DELPHI Command 
Card and DELPHI: The Official Guide. Type 
USING MANUAL at the DELPHI main 
menu for order info. 

Finally, read Database DELPHI for more 
tips, instruction, and the latest information 
on new DELPHI features. 

Weekly Conferences 

As always, you are invited to join in the 



weekly SIG ATARI conferences. Stop by any 
Tuesday at 10 PM. , EST, to meet other Atari 
users and the SIG managers. Bring your ques- 
tions, programming and hacking secrets, and 
comments to this friendly meeting-place. 

And, speaking of conferences, I'll have a 
few surprises for you next month when I take 
an in-depth look at using the Atari SIG's Con- 
ference area. 



In addition to science fiction novels and 
non-fiction books on model rocketry and 
other topics, Michael A. Banks is the author 
of DELPHI: The Official Guide and The 
Modem Reference, both from Brady Books. 
You can contact him on DELPHI by sending 
E-mail to membername KZIN. fl 



CLSN Pascal 

for the Atari 130XE 



o Editor and compiler are 

all in one complete, 

integrated programming 

environment - No program 

swapping 
o Compiles at 1000 lines per 

minute 
o Generates 6502 machine 

code, not pseudo code 
o Programs can be compiled 

and run from memory, or 

stored to disk and run on 

their own 
o Arrays, records, files, 

and sets are all supported 
o Recursion and dynamic 

memory allocation are 

supported 
o Interface to machine 

language subroutines 
o 48k of code, 48k of 

dynamic memory, and a 16k 

stack are available 
o Demonstration programs 

included 

To order, send $39.95 to: 
CLSN Software 
10 Arlington Place 
Kearny, NJ 07032 

NJ residents, add 6% sales tax, Canadian 
residents add 55.00 shipping and handling 
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PROCESSOR 



Do you use DOS 2.0 or 2.5? If so, this ar- 
ticle is for you. If you tire of waiting for 
DUP.SYS to load, and hate MEM.SAV, you 
will enjoy this memory-resident DUP.SYS 
file. The BBK Command Processor. 

The idea of a command processor is not 
new; they have been around for quite some 
time. Have you ever used UNIX, OSS A-l- 
or SpartaDOS? All these operating systems 
use a system of input called Command 
Processing. Put simply, you type in com- 
mands, followed by a string of arguments 
which are then interpreted by the computer. 
This is what the BBK Command Processor 
does and what is better is that it gives you 
most of the functions of DUP.SYS (and some 
DUP never thought ot) in less than 2,000 
bytes! 



by Bryan Schappel 

need not be typed in to use the program, but 
is provided so you can see how the program 
works and so we can refer to it in later dis- 
cussions. 

About the BBKCP 

BBKCP has ten internal commands and can 
have an extensive library of external com- 
mands. The built-in commands are given, 
with syntax, below: 

COMMAND DESCRIPTION 



Typing It In 



Listing 1 is the data used to create the AU- 
TORUN.SYS file of BBKCP Please refer to 
the M/L Editor, found elsewhere in this is- 
sue, for typing instructions. 

Listing 2 is the MAC/65 source code which 



ERASE fname 
PROTECT fname 
UNPROTECT fname 
RENAME old new 
DIR [Dx:] 
COPY fnl fn2 
RUN [hex addr] 
CAR 

TYPE fname 
KILL 



delete file 

lock file 

unlock file 

rename file 

disk directory 

copy file 

run at address 

run cartridge 

type file 

kill BBKCP 



In the table above, fiiame stands for any le- 
gal DOS filename in the format of [Dx:]file- 
name.ext, where x is any legal drive number. 
Anything in brackets is considered optional . 



For optional arguments, certain default con- 
ditions will be used. For example, just giv- 
ing a filename following a command will tell 
BBKCP that this command is issued to the 
default device. (The default device is used as 
the prompt.) So if you typed PROTECT MY- 
FILE.BAS, BBKCP would expand this to 
PROTECT Dl:MYFILE.BAS-assuming Dl: 
is the default device. 

To change the default device, just enter it 
on the command line. For example, if the 
prompt is Dl: , and you type D2 : , you are now 
prompted with D2:. 

Any legal Atari device may be used for the 
default device, such as P:, E:, S: and C:. You 
should remember, though, that most of the 
commands are used for disk operation and 
will give errors with another device. 

BBKCP uses the Space (ATASCII 32) as 
a delimiter to separate commands and argu- 
ments on the command line. You may put as 
many spaces between arguments as you like, 
however there may be no spaces before a 
command. 

To enter the BBKCP from BASIC or 
MAC/65 (or any other language cartridge), 
simply use the DOS command. Any program 

MAY A.N.A.L.O.Q. Compucing 



currently in memory will remain safe unless 
you use the COPY command or use an ex- 
ternal command. (We'll discuss external com- 
mands in a little while.) 

About the Commands 

You are only required to enter the first three 
letters of any internal command, but in all 
examples the entire command name will be 
used. 

ERASE. This command accepts a filename 
as the argument (wildcards are allowed) and 
will delete the matching file(s) from your 
disk. You are not asked for verification, so 
be careful with this command. 

PROTECT. Again only specify the file to 
be used, and voila, it's locked. Use UN- 
PROTECT to reverse the locking process. 
Wildcards are allowed. 

RENAME. This requires two arguments, 
namely the current name of the file and its 
new name. Separate the names by at least one 
space to ensure the rename will function cor- 
rectly. Wildcards are allowed— but be care- 
ful not to rename two files with the same 
name. 

Do not supply a device prefix for the new 
filename with a rename command, as it will 
cause unpredictable results. It will not destroy 
your disk, but it will cause some headaches. 
It is, however, perfectly legal to put a device 
prefix on the old filename. 

DIR. This command takes an optional ar- 
gument, the directory specifier. The default 
specifier is [*].[*], but you may use 
D2:[*].BAS or anything else you may think 
of. To get the directory from anything but the 
default device, just type the device name af- 
ter the DIR command. 

COPY. This command will copy one file 
to another disk drive or file. Wildcards will 
produce strange results— Don 'f use them. 
COPY will make as many passes as needed 
to duplicate the file. COPY is mainly for a 
two-drive system; if used with a one-drive 
system, it can only duplicate the file to the 
same disk under a separate name. (Note: If 
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you are using one drive with COPY, make 
certain that you use unique filenames for the 
source and destination files. Otherwise you 
could loose the source file forever!) 

Another great use for COPY is to copy a 
text file to the screen or printer. To do this 
your commands would look like this: 

COPY MYFILE.TXT E: (screen) 
COPY MYFILE.TXT P: (printer) 

Using the COPY command will destroy 
any program in memory, so save your work 
before performing a COPY. 

RUN. This command takes an optional 
hexadecimal address as its parameter and is 
used to execute a machine-language program 
in memory. If an address is supplied, RUN 
will execute at the supplied address. If no ad- 
dress is given, the last run address will be 
used. At the end of your machine-language 
routine, execute an RTS instruction to return 
to BBKCR 

RUN (with no argument) may also be used 
to re-run the last external command, assum- 
ing it still resides in memory. 

The RUN command checks to see if the 
address given as an argument contains only 
legal hexadecimal digits and that the number 
contains no more than four digits. If these 
conditions are not met, an ERROR 180 is 
given, and control passes back to BBKCP. 

CAR. This command will attempt to pass 
control to the left cartridge, if it is present. 
(In the case of an XL or XE, the "left" car- 
tridge is either the built-in BASIC or 
whatever cartridge is plugged into the com- 
puter.) If no cartridge exists, the message 
"No Cart" will appear, and you are returned 
to BBKCP; otherwise, the cartridge will be 
entered. 

TYPE. This command will print the con- 
tents of a text file (the name of which you sup- 
ply) to the screen, assuming each line of the 
text has a maximum of 64 characters per line. 
Mainly this is used to show the contents of 
a BATCH file. (More on BATCH files later.) 



KILL. Use of this command will (1) remove 
BBKCP from memory, (2) wipe out any pro- 
gram in memory and (3) pass control to either 
a cartridge (if present) or go to DOS. 

External Commands 

If you enter something that BBKCP does 
not understand, it assumes that it is an ex- 
ternal command, and BBKCP attempts to bi- 
nary load the file. If what you typed has no 
filename extension, BBKCP adds on a .COM 
extension. Executing an external command 
is destructive to memory, in most cases. 

External commands must be binary, load- 
and-go machine-language files. If the file 
doesn't begin with a $FF $FF header, an ER- 
ROR 181 is given and control passes back to 
BBKCP 

Next month, a library of external com- 
mands will be published. 

Batch Files 

Batch files are a wonderful way of automat- 
ing certain processes. A batch file is simply 
a text file full of commands that either 
BBKCP understands or commands that the 
left cartridge understands. You may use a 
batch file to perform simple operations like 
copying a few files or running other external 
commands. 

Use any text editor to make a batch file or 
simply use the COPY command like this: 

COPY El: Dl: MYBATCH.BAT 

When using this command, type your text 
one line at a time (maximum length is 64 
characters), and press Return after each line. 
When you are finished press Control-3 to ter- 
minate the COPY. 

To execute a batch file, type a "[*]" be- 
fore the filename at the prompt. You are also 
allowed to chain batch files if the last line in 
the batch file looks like "[*] batfile". 

If no file extension is supplied on the file- 
name a .BAT extension is used. 

Here is a sample batch file: 
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; BATCH FILE TO GIVE DIRECTORY AND 

;ruh the cart. 

;anv line starting mith a •;' 

J IS ignored BV BBKCP! 

DIR 
CAR 



Upon power-up, after it has loaded, 
BBKCP will attempt to run the batch file 
called AUTORUN.BAT from Drive 1. If the 
file does not exist you are left in BBKCP, or 
control is passed to a cartridge (if present). 

The AUTORUN.BAT file is extremely 
powerful. You could use it to copy files to 
a RAMdisk or go to the cartridge and run a 
program or simply print a "hello" message 
whenever you boot up your system. You can 
think of this file as giving you an infinite 
number of AUTORUN.SYS files. 

Next Month 

Next time around, we will provide some 
library functions and tell you how to inter- 
face into BBKCP so you can write your own 
commands! 

By the time you read this, Bryan and Carol 
will have been happily married for a while. 
Their new (read: same) apartment contains 
a new Mega ST2, which shares the computer 
room with the 800XL. The compu-kids get 
along very well— if you overlook the constant 
battle for the printer. 

iV7c 7ir+i? 
LISTING 1: M/L EDITOR DATA 
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leoe DATA 255,255,124,29,198,35,160,0, 

,132,226,140,224,2,140,225,2,7642 

1010 DATA 32,212,31,160,0,32,237,33,16 

69,121,160,35,32,163,32,32,2915 

1020 DATA 221,30,32,195,34,32,149,31,1 

169,4,157,74,3,32,86,228,3431 

1030 DATA 16,7,76,165,31,160,181,208,2 

249,32,81,30,166,220,232,208,1852 

1040 DATA 244,166,221,232,208,239,32,1 

158,32,169,118,141,226,2,169,30,8118 

1050 DATA 141,227,2,32,81,30,166,220,2 

232,208,8,166,221,232,208,3,823 

1060 DATA 32,81,30,165,220,133,216,165 

5, 221, 133, 217, 166, 226, 208, 10, 230, 4112 

1070 DATA 226,141,182,35,165,216,141,1 

181,35,32,81,30,165,220,56,229,8435 

1080 DATA 216,133,218,165,221,229,217, 

,133,219,230,218,208,2,230,219,32,4146 

6 

1090 DATA 43,30,48,9,32,16,30,76,191,2 

29,108,226,2,32,221,30,2625 

1100 DATA 173,224,2,170,13,225,2,240,9 

9,142,181,35,173,225,2,141,7353 

1110 DATA 182,35,108,181,35,165,216,13 

33,214,165,217,133,215,162,16,169,1717 

7 
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1120 DATA 7,157,66,3,165,214,157,68,3, 

,165,215,157,69,3,165,218,8231 

1130 DATA 157,72,3,165,219,157,73,3,76 

6,86,228,169,220,133,214,169,1388 

1140 DATA 0,133,215,133,219,169,2,133, 

,218, 208, 210, 133, 212, 132, 213, 160, 4077 

1150 DATA 0,177,212,240,11,32,119,30,2 

230,212,208,243,230,213,208,239,6730 

1160 DATA 96,168,173,7,228,72,173,6,22 

28,72,152,96,162,0,169,64,6231 

1170 DATA 141,190,2,169,0,133,214,133, 

,219,169,64,133,218,169,5,133,9097 

1180 DATA 215,78,55,30,169,0,133,226,1 

133,212,133,213,185,0,5,201,8448 

1190 DATA 155,208,8,165,226,240,2,24,9 

96,56,96,162,15,221,105,35,5069 

1200 DATA 240,5,202,16,248,48,242,6,21 

12,38,213,6,212,38,213,6,6672 

1210 DATA 212,38,213,6,212,38,213,138, 

,5,212,133,212,230,226,200,165,4010 

1220 DATA 226,201,5,176,212,144,197,16 

62,16,208,2,162,32,138,72,169,7488 

1230 DATA 12,157,66,3,32,86,228,104,17 

70,95,169,81,160,35,32,97,4793 

1240 DATA 30,32,130,30,16,6,32,165,31, 

,76,240,30,173,0,5,201,3083 

1250 DATA 155,240,231,96,165,6,208,7,1 

169,72,160,35,76,97,30,108,4280 

1260 DATA 250,191,32,35,31,133,8,32,10 

0,31,108,10,0,169,255,133,3420 

1270 DATA 10,169,255,133,11,173,194,32 

2,133,12,173,195,32,133,13,172,6407 

1280 DATA 216,35,169,0,153,26,3,169,22 

28,153,27,3,169,255,141,231,9860 

1290 DATA 2,169,255,141,232,2,169,0,14 

41,217,35,96,169,33,208,40,6709 

1300 DATA 169,35,208,36,169,36,208,32, 

,32,212,31,164,223,32,237,33,7227 

1310 DATA 166,222,169,44,157,186,35,18 

85,0,5,157,187,35,232,200,201,169 

1320 DATA 155,208,244,169,32,72,208,4, 

,72,32,212,31,32,221,30,104,4675 

1330 DATA 157,66,3,32,149,31,157,74,3, 

,32,86,228,48,17,96,169,3413 

1340 DATA 183,157,68,3,169,35,157,69,3 

3,169,0,157,75,3,96,132,2929 

1350 DATA 212,169,0,133,213,32,221,30, 

,32,170,217,32,230,216,160,255,2729 

1360 DATA 200,177,243,153,100,35,16,24 

48,41,127,153,100,35,169,155,153,8177 

1370 DATA 101,35,169,0,153,102,35,169, 

,93,160,35,76,97,30,173,82,4344 

1380 DATA 35,141,183,35,173,83,35,141, 

,184,35,162,0,185,1,5,201,4620 

1390 DATA 58,240,24,185,2,5,201,58,208 

8,25,185,1,5,141,184,35,4179 

1400 DATA 185,0,5,141,183,35,200,200,2 

200,208,8,185,0,5,141,183,7590 

1410 DATA 35,200,200,185,0,5,157,186,3 

35,201,155,240,10,201,32,240,9976 

1420 DATA 6,200,232,224,13,208,236,169 

9, 155, 157, 186, 35, 169, 0, 157, 187, 710 

1430 DATA 35,134,222,96,185,0,5,201,15 

55,240,15,32,154,30,176,13,4965 

1440 DATA 165,212,141,181,35,165,213,1 

141,182,35,108,181,35,160,180,76,8919 

1450 DATA 165,31,169,6,208,2,169,4,141 

1,112,32,32,212,31,173,186,6361 

1460 DATA 35,201,155,208,11,162,3,189, 

,86,35,157,186,35,202,16,247,8312 

1470 DATA 32,221,30,32,195,34,32,149,3 

31,169,6,157,74,3,32,86,1536 

1480 DATA 228,48,204,162,16,32,137,30, 

,48,27,160,0,185,0,5,201,2693 

1490 DATA 155,240,3,200,208,246,169,0, 

,153,1,5,169,0,160,5,32,2930 
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1500 DATA 97,38,76,121,32,76,221,38,16 

69,8,133,8,96,133,212,132,6254 

1518 DATA 213,162,255,168,4,232,189,18 

86,35,281,46,248,13,281,155,288,2822 

1528 DATA 244,177,212,157,186,35,232,1 

136, 16, 247, 96, 32, 255, 255, 32, 35, 9213 

1538 DATft 31,162,8,32,227,38,32,195,34 

4,169,98,141,68,3,169,35,3811 

1548 DATA 141,69,3,142,75,3,169,12,141 

1,74,3,32,86,228,216,172,6796 

1558 DATA 4,228,174,5,228,288,288,1,23 

32, 148, 82, 34, 142, 83, 34, 168, 7232 

1568 DATA 8,185,26,3,281,69,248,7,288, 

, 288, 288, 192, 33, 144, 242, 288, 2754 

1578 DATA 148,216,35,169,234,153,26,3, 

,169,35,153,27,3,162,88,32,3114 

1588 DATA 227,38,168,15,185,8,228,153, 

,234,35,185,144,3,153,258,35,8862 

1598 DATA 136,16,241,169,71,141,238,35 

5,169,34,141,239,35,173,217,35,9276 

1688 DATA 288,61,238,217,35,165,12,141 

1,194,32,165,13,141,195,32,169,7673 

1618 DATA 193,133,12,169,32,133,13,165 

5,18,141,36,31,165,11,141,48,2472 

1628 DATA 31,169,118,133,18,169,33,133 

3,11,173,231,2,141,67,31,173,5632 

1638 DATA 232,2,141,72,31,169,18,141,2 

231,2,169,36,141,232,2,96,5981 

1648 DATA 32,228,32,169,255,133,8,216, 

,32,248,38,173,8,5,281,42,5688 

1658 DATA 288,3,76,8,34,281,59,248,238 

8,168,8,32,212,31,173,186,8728 

1668 DATA 35,281,155,288,15,173,183,35 

5,141,82,35,173,184,35,141,83,6943 

1678 DATA 35,76,125,33,169,131,133,212 

2,169,35,133,213,162,8,168,8,7818 

1688 DATA 185,8,5,289,212,288,26,288,1 

192,3,288,244,189,161,35,141,1272 

1698 DATA 218,33,189,171,35,141,211,33 

3,32,237,33,32,255,255,76,125,9489 

1708 DATA 33,165,212,24,185,3,133,212, 

,144,2,238,213,232,224,18,288,1997 

1710 DATA 205,32,124,29,76,125,33,185, 

,8,5,281,32,248,7,281,155,6666 

1728 DATA 248,3,288,288,242,185,0,5,20 

01,32,208,3,288,288,246,132,1525 

1738 DATA 223,96,168,8,169,32,141,8,5, 

,32,237,33,32,212,31,169,4578 

1748 DATA 126,168,35,32,163,32,169,12, 

,32,112,34,169,183,141,254,35,7238 

1758 DATA 169,35,141,255,35,169,4,141, 

,4,36,169,3,32,112,34,16,818 

1768 DATA 18,169,12,132,212,32,112,34, 

,32,167,31,76,125,33,169,155,5293 

1778 DATA 288,35,173,258,35,16,7,162,8 

8,168,1,76,255,255,169,8,7126 

1788 DATA 141,2,36,141,3,36,169,7,32,1 

112,34,48,234,173,233,35,5944 

1798 DATA 72,32,119,38,104,162,0,160,1 

1,96,141,252,35,32,137,34,4221 

1888 DATA 162,80,32,86,228,141,233,35, 

,16,9,152,72,162,88,32,227,6557 

1810 DATA 30,104,168,152,72,168,15,185 

5,32,8,72,185,218,35,153,32,5496 

1828 DATA 8,104,153,218,35,185,144,3,7 

72,185,250,35,153,144,3,104,7058 

1830 DATA 153,250,35,136,16,225,104,16 

68,96,157,66,3,169,8,157,72,5534 

1848 DATA 3,157,68,3,169,48,157,73,3,1 

157,69,3,96,169,3,157,3752 

1858 DATA 66,3,96,32,165,31,76,225,38, 

,32,212,31,32,221,30,32,3447 

1868 DATA 149,31,32,195,34,169,4,157,7 

74,3, 32, 86, 228, 48, 228, 169, 7255 

1870 DATA 183,160,35,32,97,30,164,223, 

,32,237,33,32,212,31,32,225,6878 

1888 DATA 30,32,149,31,32,195,34,169,8 
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8,157,74,3,32,86,228,48,3765 

1898 DATA 194,32,158,32,162,16,169,7,3 

32, 175, 34, 32, 86, 228, 48, 6, 2817 

1988 DATA 169,1,133,226,288,4,169,0,13 

33, 226, 189, 72, 3, 133, 224, 189, 386 

1918 DATA 73,3,133,225,162,32,169,11,3 

32,175,34,165,224,157,72,3,6191 

1920 DATA 165,225,157,73,3,32,86,228,1 

165,226,208,288,32,221,30,76,9540 

1930 DATA 225,30,78,111,32,67,97,114,1 

116,155,0,155,68,49,58,8,1940 

1940 DATA 42,46,42,155,69,58,155,69,11 

14, 114, 111, 114, 45, 32, 32, 32, 1930 

1950 DATA 32,155,0,48,49,50,51,52,53,5 

54,55,56,57,65,66,67,9889 

1960 DATA 68,69,78,155,77,79,67,46,155 

5,84,65,66,46,69,82,65,2268 

1978 DATA 88,82,79,85,78,88,82,69,78,6 

68,73,82,67,79,88,82,2445 

1988 DATA 85,78,67,65,82,84,89,88,75,7 

73,76,82,86,90,94,72,3024 

1990 DATA 207,42,10,76,24,31,31,31,31, 

,32,34,32,31,32,31,118,7947 

2800 DATA 30,68,49,58,65,85,84,79,82,8 

85,78,46,66,65,84,155,3186 

2810 DATA 0,10,36,139,36,162,0,142,217 

7,35,134,8,232,134,9,32,4394 

2020 DATA 199,32,169,83,168,36,32,97,3 

38,32,225,30,32,195,34,32,2731 

2038 DATA 149,31,169,4,157,74,3,32,86, 

,228,8,32,225,30,40,16,1997 

2040 DATA 10,165,6,208,3,108,18,8,188, 

,258,191,169,81,160,35,32,5894 

2050 DATA 97,30,169,186,168,35,32,97,3 

38,184,184,76,28,34,125,155,4829 

2060 DATA 66,66,75,32,67,88,32,45,32,4 

48,67,41,32,49,57,56,8780 

2070 DATA 55,32,65,78,65,76,79,71,32,6 

67, 111, 189, 112, 117, 116, 185, 4599 

2888 DATA 118,183,155,98,121,58,32,66, 

,114,121,97,110,32,83,99,184,4388 

2890 DATA 97,112,112,101,188,155,8,226 

6,2,227,2,18,36,8,8,8,9327 
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8100 
0110 
0120 
0130 

0140 

0150 
0160 
0170 
0188 
8198 
8200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 



.OPT NO LIST 



; Super CoHMand Processor 

}by: Bryan Schappel 

;If the typed line does not 
jcontain a connand, then the 
;filenane entered will be loaded 

;as a binary file. 

■ 



J iHHt COMMandS IHHt 



;ERA [fnanel 
;REN Cfl,f2] 
;PR0 CfnaMel 
jUNP [fnanel 
;DIR CDn:] 
;RUN [adrl 
;C0PY 
;CAR 
;TYPE 
;KILL 



NUHCOM 



10 



delete file 
renane fl to f2 
lock file 
unlock file 
directory of Dtt: 
run at address 
copy a File 
enter Cart 
read BATCH file 
KILL BBK CP 

;tt OF COMHANDS 



0380 


I0CB5 = $8396 , 


Adr of I0CB5 


0390 


MYBUF = $0500 , 


I/O Buffer 


0400 


ZIOCB = 520 , 


Zpage lOCB 


0410 






0420 


;Zero Page Variables 


0430 






0440 


*= $D6 




0450 


5L .DS 1 i 


Load adr lo 


0460 


SH .DS 1 , 


Load adr hi 


0470 


STL .DS 1 


start adr lo 


0480 


STH .DS 1 t 


start adr hi 


0490 


BLL .DS 1 J 


length lo 


0500 


BLH .DS 1 


length hi 


0510 


BAL .DS 1 


buffer byte 1 


0520 


BAH .DS 1 


buffer byte 2 


0530 


HSAV .DS 1 


save loc 


0540 


LKPOS .DS 1 


■CP line pos 


8550 


LENSAU .DS 2 


■COPY length 


0560 


COUMT .DS 1 


counter 


0570 






0588 


;0S Equates 




0590 






0600 


CIOV = $E456 


;CIO Vector 


0610 


ICCOM = $8342 


;CIO Connand 


0620 


ICBAL = $8344 


;CIO buffer lo 


0630 


ICBAH = $8345 


;CIO buffer hi 


0640 


ICBLL = $8348 


;CI0 length lo 


0650 


ICBLH = $8349 


■CIO length hi 


0660 


AUXl = $e34A 


;CIO aux 1 


0670 


AUX2 = $8348 


;CIO aux 2 


0680 


RUNAD = $e2Ee 


run address 


0690 


EOL = S9B 


;end of line 


8700 


FRO = $D4 


;FP nunber 


8710 


TRAHSZ = $86 


icart in? 


0720 


BOOT? = $89 


;boot flag 


0730 


DOSUEC = $0A 


;DOS Vector 


8740 


DOSINI = $8C 


iinit vec 


0750 


WARMST = $88 


;warM st flag 


0760 


MEMLO = $B2E7 


;lo HeH pntr 


0770 


INITAD = $e2E2 


;init addr 


0788 


HATABS = $e31A 


;Handler Table 


0790 


SHFLOK = $e2BE 


iCaps toggle 


8808 


IFP = $D9AA 


;lnt to FP 


8818 


FASC = $D8E6 


;FP to A5C 


8828 


INBUFF = $F3 


;FP pntr 


0830 


EDITRU = $E488 


;E: Handler Tab 


0840 






0858 


;BUHP Macro 




8868 






8878 


.MACRO BUMP 




8888 


INC y.i 




0890 


BNE CBUMP 




0900 


INC Xl+1 




0910 


GBUMP 




0920 


.ENDM 




0930 






0940 


; PRINT Macro 




8950 






0960 


.MACRO PRINT 




8978 


LDA tt <y.i 




0988 


LDY » >>:i 




8998 


JSR EPRINT 




1888 


.ENDM 




1810 


f 




1028 


ORIGIN = $1D7C 




1830 


K= ORIGIN 




1040 






1858 


;This routine af 


tenpts to 


1860 


;Binary Load a f 


ile. 


1870 


;lf the file is 


fiot Binary an 


1080 


; Error ttlOl is g 


iven. 


1090 






1100 


; ENTER: 




1118 


;MYBUF=FilenaMe - 


to load Minus 


1128 


; a .COM ex- 


tension. 


1138 


; Load is 


n lOCB ttl 



1140 


■ 




1150 


LOADIT LDY ttO 


1160 


STY 


COUNT 


1178 


STY 


RUNAD 


1188 


STY 


RUNAD+1 


1198 


JSR 


FINDFILE 


1200 


LDY 


ttO 


1210 


JSR 


FINDARG 


1220 


LDA 


tt <COM 


1230 


LDY 


tt >COM 


1240 


JSR 


ADD_EXT 


1250 


JSR 


CLOSEl 


1260 


i 




1270 


JSR 


SET_OPN 


1288 


JSR 


SET_DEV 


1298 


JSR 


5ET_4 


1300 


BPL 


LOAD-MAIN 


1310 


G8_ERR JMP lOERROR 


1320 


NO_BIN LDY ttl81 


1330 


BNE 


GO-ERR 


1340 






1350 


;Main load Loop 


1360 






1370 


LOAD-MAIN JSR READ2 


1388 


LDX 


BAL 


1390 


INX 




1400 


BNE 


NO-BIN 


1410 


LDX 


BAH 


1420 


INX 




1430 


BNE 


NO-BIN 


1440 


JSR 


SET-DEST 


1450 


I 




1460 


GET_FIL 


LDA n <EPRDN 


1470 


STA 


INITAD 


1488 


LDA 


» >EPRDN 


1498 


STA 


INITAD+1 


1588 


JSR 


READ2 


1518 


LDX 


BAL 


1520 


INX 




1530 


BNE 


HOT_FF 


1540 


LDX 


BAH 


1550 


INX 




1560 


BNE 


NOT-FF 


1570 


JSR 


READ2 


1580 


NOT_FF LDA BAL 


1590 


STA 


STL 


1608 


LDA 


BAH 


1618 


STA 


STH 


1620 


LDX 


COUNT 


1630 


BNE 


PA552 


1640 


INC 


COUNT 


1650 


STA 


ADDRESS+1 


1660 


LDA 


STL 


1670 


STA 


ADDRESS 


1680 


PASS2 JSR READ2 


1690 


LDA 


BAL 


1700 


SEC 




1710 


SBC 


STL 


1720 


STA 


BLL 


1738 


LDA 


BAH 


1748 


SBC 


STH 


1758 


STA 


BLH 


1768 


BUMP BLL 


1778 


JSR 


GET-DATA 


1788 


BMI 


JSTART 


1798 


JSR 


JINIT 


1888 


JMP 


GET-FIL 


1818 


f 




1828 


JINIT JMP CINITADJ 


1838 


JSTART JSR CLOSEl 


1848 


LDA 


RUNAD 


1858 


TAX 




1860 


ORA 


RUNAD+1 


1870 


BEQ 


LOAD-GO 


1888 


STX 


ADDRESS 


1898 


LDA 


RUNAD+l 
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1900 




STA ADDRESS+1 


1910 


LOfll>_GO JMP (ADDRESS] 


1920 






1938 


;Get DATA froH file 


1940 






1950 


GET 


-DATA LDA STL 


1960 




STA SL 


1970 




LDA STH 


1980 




STA SH 


1990 


I 




2000 


GET 


_REC LDK tt$ie 


2010 




LDA tt7 


2020 


CALL_CIO STA ICCOM,X 


2030 




LDA SL 


2040 




STA ICBAL,X 


2050 




LDA SH 


2060 




STA ZCBAH,X 


2070 




LDA BLL 


2080 




STA ICBLL,X 


2090 




LDA BLH 


2100 




STA ICBLH,X 


2110 




JMP cioy 


2120 






2130 


jRead 2 bi/tes fron fi 


2140 






2150 


READ2 LDA tt <BAL 


2160 




STA SL 


2170 




LDA »0 


2180 




STA SH 


2190 




STA BLH 


2200 




LDA tt2 


2210 




STA BLL 


2220 




BNE GET_REC 


2230 






2240 


;Set AUXl to 4 


2250 






2260 


SET 


_4 LDA tt4 


2270 




STA AUX1,X 


2280 




JHP CIOU 


2290 






2300 


;E: 


Print Routine 


2310 






2320 


; ENTER: 


2330 


;ii= 


LSB of string 


2340 


;Y= 


MSB of string 


2350 






2360 


;EKIT; 


2370 


;fl= 


zero 


2380 






2390 


EPRINT STA FRO 


2400 




STY FRO+1 


2410 


EPL 


LDV ttO 


2420 




LDA CFR0J,Y 


2430 




BEQ EPRDN 


2440 




JSH EPUT 


2450 




INC FRO 


2460 




BNE EPL 


2470 




INC FRO+1 


2480 




BNE EPL 


2490 


EPRDN RTS 


2500 






2510 


;E: 


Put Byte Routine 


2520 






2530 


; enter: 


2540 


;ft= 


character to print 


2550 






2560 


EPUT TAY 


2570 




LDA EDITRU+7 


2580 




PHA 


2590 




LDA EDITRU+6 


2600 




PHA 


2610 




TYA 


2620 




RTS 


zosv 
2640 


;E: 


Input Routine 


2650 







2660 


EINPUT LDX tt$00 


2670 


LDA tt$40 


2680 


STA SHFLOK 


2690 




2700 


iGet a 64 byte line in NYB 


2710 




2720 


1 ENTER: 


2730 


;X=I0CB Index ($10, $20,... 


2740 




2750 


[NP-MYB LDA ttO 


2760 


STA SL 


2770 


STA BLH 


2780 


LDA tt64 


2790 


STA BLL 


2800 


LDA US 


2810 


STA SH 


2820 


JMP CALL-CIO 


2830 




2840 


Get a Hex tt fron MYBUF 


2850 




2860 


enter: 


2870 , 


Y=offset into MYBUF where 


2880 , 


the Hex tt starts 


2890 ; 




2900 , 


EXIT: 


2910 , 


FRO, FRO+1 = binary nunber 


2920 J 




2930 J 




2940 GRAB_HEX LDA ttO 


2950 


STA COUNT 


2960 


STA FRO 


2970 


STA FRO+1 


2980 G4L00P LDA MYBUF,Y 


2990 


CMP ttEOL 


3000 


BEQ HEX-OUT 


3010 


CMP tt$20 


3020 


BNE TESTIT 


3030 HEX_0UT LDA COUNT 


3040 


BEQ HEX-BAD 


3050 HEX-GOOD CLC 


3060 


RTS 


3070 HEX-BAD SEC 


3080 


RTS 


3090 J 




3100 TESTIT LDX ttSOF 


3110 G4SCAN CMP HEXDIG,X 


3120 


BEQ G0TG4D 


3130 


DEX 


3140 


BPL G4SCAN 


3150 


BMI HEX-BAD 


3160 , 




3170 G0TG4D A5L FRO 


3180 


ROL FRO+1 


3190 


ASL FRO 


3200 


ROL FRO+1 


3210 


ASL FRO 


3220 


ROL FRO+1 


3230 


ASL FRO 


3240 


ROL FRO+1 


3250 


TXA 


3260 


DRA FRO 


3270 


STA FRO 


3280 


INC COUNT 


3290 


INY 


3300 


LDA COUNT 


3310 


CMP tt5 


3320 


BCS HEX-BAD 


3330 


BCC G4L00P 


3340 J 




3350 J 


Close lOCB ttl 


3360 J 




3370 CLOSEl LDX ttSlO 


3380 


BNE CLOSEIT 


3390 , 




3400 1 


Close lOCB tt2 


3410 1 
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•41 



3420 

3430 

3448 

3456 

3468 

3478 

3488 

3498 

3588 

3518 

3528 

3538 

3548 

3558 

3568 

3578 

3588 

3598 

3688 

3618 

3628 

3638 

3648 

3658 

3668 

3678 

3688 

3690 

3788 

3718 

3728 

3738 

3748 

3758 

3768 

3778 

3788 

3798 

3888 

3818 

3828 

3838 

3848 

3858 

3868 

3878 

3888 

3898 

3988 

3918 

3928 

3938 

3948 

3958 

3968 

3978 

3988 

3998 

4888 

4810 

4828 

4838 

4840 

4858 

4868 

4878 

4888 

4898 

4188 

4118 

4128 

4138 

4148 

4158 

4168 

4178 



CL0SE2 LDX tt$28 
Close Any lOCB 



ENTER: 

X=I0CB Index ($18,$28, . . .] 

EXIT! 

X=I0CB Index 

CL05EIT TXfl 
PHA 

LDA n$QC 
5TA ICCOM, X 
JSR CIOU 
PLA 
TAX 
RTS 

;CP's PROMPT + INPUT Routine 

■ 

INPUT PRINT PROMPT 

JSR EINPUT 

BPL INPUTLV 

JSR lOERROR 

JMP INPUT 
INPUTLU LDA MYBUF 

CMP ttEOL 

BEQ INPUT 

RTS 



l uni iii Muu i iniUMiiiuru iii nn i i iiiiiii 



start of COMMands 
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Enter Cart 

GOCART LDA TRAMSZ 
BNE TRY_CART 
LDA tt <NOCART 
LDY tt >NOCART 
JMP EPRINT 

TRY_CART JMP C$BFFA) 

;Kill CP 

KILL JSR UNHOOK 
STA MARNST 
JSR GOCART 
JMP CDOSUEC) 

;Un-Hook OS Patches 

UNHOOK LDA tt$FF 
STA DOSUEC 

CP_HI LDA tt$FF 

STA DOSVEC+1 
LDA RESET-l-1 
STA DOSINI 
LDA RESET+2 
STA DOSINI+1 
LDY INDEX 
LDA tt <EDITRV 
STA HATABS,Y 
LDA tt >EDITRU 
STA HATAB5+1,Y 

OLD_ML LDA ttSFF 
STA MEMLO 

OLD_MH LDA tt$FF 
STA MEMLO+1 
LDA ttO 
STA SETFLAG 
RTS 



4180 ; 


Erase a File 




4190 ; 






4208 ERASE LDA tt33 




4218 


BNE DOXIO 




4228 ; 






4238 ; 


Lock a File 




4248 ; 






4258 PROTECT LDA tt35 




4260 


BNE DOXIO 




4270 ; 






4280 ; 


Unlock a File 




4290 ; 






4300 UNPROTECT LDA tt36 




4310 


BNE DOXIO 




4320 ; 






4330 ; 


Renane a File 




4340 , 






4350 RENAME JSR FINDFILE 




4360 


LDY LNPOS 




4370 


JSR FINDARG 




4380 


LDX XSAU 




4390 


LDA tt'. 




4400 


STA FNAME,X 




4410 REN_LP LDA MYBUF, Y 




4420 


STA FNAME+1,X 




4430 


INX 




4440 


INY 




4450 


CMP ttEOL 




4460 


BNE REN_LP 




4470 


LDA tt32 




4488 


PHA 




4498 


BNE XIO_ENT 




4500 






4510 


PerforM an XIO 




4520 






4530 


ENTER: 




4540 


;A=XIO Nunber 




4550 


Y=Offset to Filenane in 


MYBUF 


4560 






4570 DOXIO PHA 




4588 


JSR FINDFILE 




4598 XIO_ENT JSR CLOSEl 




4600 


PLA 




4610 


STA ICCON,X 




4620 


JSR SET_DEW 




4630 


STA AUX1,X 




4640 


JSR CIOU 




4658 


BMI lOERROR 




4668 


RTS 




4678 






4688 


Set ICBAL/H to DEVICE 




4698 






4788 


ENTER: 




4718 


X=IOCB Index 




4728 






4738 ' 


>ET_DEU LDA tt <DEUICE 




4748 


STA ICBAL,X 




4750 


LDA tt >DEUICE 




4768 


STA ICBAH,X 




4778 


LDA ttO 




4788 


STA AUX2,X 




4798 


RTS 




4888 ; 






4818 


Handle I/O error 




4828 






4838 


ENTER: 




4848 


Y=I/0 Error tt 




4858 






4868 


EXIT: 




4878 


Channel ttl is closed 




4888 






4898 ] 


:0ERR0R STY FRO 




4988 ] 


[0_ERR LDA ttO 




4910 


STA FRO+1 




4920 


JSR CLOSEl 




4938 


JSR IFP 
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494e 
4950 
4966 
4978 
4980 
4996 
5668 
5618 
5628 
5838 
5646 
5058 
5668 
5678 
5688 
5696 
5100 
5110 
5120 
5136 
5148 
5158 
5168 
5176 
5186 
5198 
5288 
5216 
5226 
5238 
5248 
5258 
5268 
5278 
5286 
5296 
5386 
5318 
5326 
5338 
5348 
5358 
5366 
5376 
5388 
5398 
5488 
5418 
5428 
5438 
5448 
5458 
5468 
5478 
5488 
5498 
5586 
5516 
5528 
5538 
5548 
5556 
5568 
5578 
5588 
5598 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5688 
5698 



JSR FftSC 
LDY ttSFF 
lOERR INY 

LDA (IMBUFF],Y 
STA ERBUF,Y 
BPL lOERR 
AND n$7F 
STft ERBUF.Y 
LDA »EOL 
STA ERBUF+1,Y 
LDA tt8 

STA ERBUF+2,Y 
LDA U <ERTXT 
LDY n >ERTXT 
JMP EPRINT 

This Will grab a filenane froM 
MYBUF and put it in the 
device buffer. 

ENTER: 

Y=0ffset to Filenane in MYBUF 

FINDFILE LDA DEFDEU 
STA DEVICE 
LDA DEFDEU+1 
STA DEUICE+1 

FINDl LDX tt8 

LDA MYBUF+1,Y 

CMP tt' : 

BEQ X2 

LDA MYBUF+2,Y 

CMP »■ : 

BNE FIND2 

LDA MYBUF+1,Y 

STA DEUICE+1 

LDA MYBUF, Y 

STA DEVICE 

INY 

INY 

INY 

BNE FIND2 

X2 LDA MYBUF, Y 
STA DEVICE 
INY 
INY 

FIND2 LDA MYBUF, Y 

STA FNAME,X 

CMP ttEOL 

BEQ FINDS 

CMP »$28 

BEQ FINDS 

INY 

INX 

CPX ttl3 

BNE FIND2 
FIND3 LDA UEOL 

STA FNAME,X 

LDA tt8 

STA FNAME+1,X 

STX XSAV 

RTS 

;This handles the 'RUN' coMnand 

MEMRUN LDA MYBUF, Y 
CMP ttEOL 
BEQ RUN_IT 

PULL_IT JSR GRAB-HEX 
BCS BAD-RUN 
LDA FR8 
STA ADDRESS 



5788 


LDA FRe+1 


5718 


STA ADDRESS+1 


5728 


RUN_IT JMP CADDRESSJ 


5738 


BAD_RUN LDY ttl88 


5746 


MEM-ERR JMP lOERROR 


5758 




5768 


;Get disk Directory 


5778 




5788 


DIRECT LDA tt6 


5796 


BNE DIR_GO 


5888 




5818 


;Get a TYPE of a Fil 


5828 




5838 


TYPE LDA «4 


5848 


DIR_GO STA DIR-COM+1 


5858 


JSR FINDFILE 


5868 


LDA DEVICE+3 


5878 


CMP ttEOL 


5888 


BNE DPEN-DIR 


5898 


LDX nz 


5988 


CP-DIR LDA DIRNAM,X 


5916 


STA DEVICE+3, X 


5926 


DEX 


5938 


BPL CP-DIR 


5948 


i 


5958 


DPEN-DIR JSR CLOSEl 


5968 


JSR SET-OPN 


5978 


JSR SET-DEV 


5988 


DIR-COM LDA tt6 


5998 


STA AUX1,X 


6868 


JSR CIOU 


6010 


BMI MEM FRR 


6020 


1 


6030 


DIROK LDX tt$16 


6040 


JSR INP-MYB 


6050 


BMI DIRDONE 


6066 


LDY »8 


6878 


DIRCKl LDA MYBUF, Y 


6888 


CMP »EOL 


6698 


BEQ DIRCK2 


6168 


INY 


6118 


BNE DIRCKl 


6126 


DIRCK2 LDA ttB 


6138 


STA MYBUF+1,Y 


6146 


PRINT MYBUF 


6156 


JMP DIROK 


6168 


DIRDONE JMP CLOSEl 


6178 




6188 


;Set Destroy Flag 


6198 




6286 


SET-DEST LDA tt8 


6218 


STA HARMST 


6228 


RTS 


6238 




6248 


;Add File Extension 


6258 




6268 


; ENTER: 


6278 


;A=LSB of extension 


6288 


;Y=MSB of extension 


6296 




6366 


ADD-EXT STA FR8 


6318 


STY FRe+1 


6328 


LDX »$FF 


6338 


LDY tt4 


6346 


f 


6356 


EXT-SCAN INX 


6368 


LDA FNAME,X 


6378 


CMP W . 


6388 


BEQ EXT-RTS 


6398 


CMP »EOL 


6468 


BNE EXT-SCAN 


6418 


EXT-ADD LDA CFR8},Y 


6426 


STA FNAME,X 


6438 


INX 


6448 


DEY 


6456 


BPL EXT-ADD 
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6460 

6478 

6488 

6490 

6508 

6510 

6520 

6530 

6540 

6550 

6568 

6578 

6580 

6590 

6680 

6610 

6620 

6630 

6640 

6650 

6660 

6670 

6680 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6840 

6850 

6860 

6870 

6880 

6898 

6988 

6918 

6928 

6938 

6940 

8950 

6960 

6970 

6980 

6990 

7000 

7018 

7020 

7030 

7040 

7050 

7860 

7878 

7888 

7898 

7188 

7118 

7128 

7138 

7148 

7158 

7168 

7178 

7188 

7198 

7280 

7218 



EXT_RTS RT5 

;This is Where RESET coMes 

RESET JSR SFFFF 
JSR UNHOOK 

HOOKUP LDK tt$8e 
JSR CLOSEIT 
JSR SET_OPM 
LDA tt <EDEU 
STft ICBflL 
LDfl tt >EDEg 
STfl ICBAH 

STX aux2 

LDA ttl2 
STA AUKl 
JSR CIOV 



HOOKl CLD 

LDY EDITRV+4 

LDK EDITRU+5 

INY 

BNE NO_UPK 

INK 
MO_UPK STY EGET+1 

STX EGET+2 

LDY ttO 

• 

FIND_E LDft HftTftBS,Y 
CMP tt'E 
BEQ GOT_E 
IMY 
INY 
INY 

CPY »33 
BCC FIND_E 

GOT_E INY 

STY INDEX 
LDA » <NEU-E.HAN 
STA HATABS,Y 
LDA tt >NEM_E.HAN 
STA HATAB5+i,Y 

LDX »$50 
JSR CLOSEIT 
LDY ttSOF 
COPY_E LDA EDITRy,Y 
STA NEM_E.HAN,Y 
LDA I0CB5,Y 
STA BAT_IOCB,Y 
DEY 
BPL COPY_E 

LDA n <tBAT_GET-l] 
STA NEU_E.HAN4^4 
LDA « > tBAT_GET-l] 
STA NEU_E.HAN-i-5 

5KIP_BAT LDA SETFLAG 
BME INIT_RTS 
INC SETFLAG 
LDA DOSINI 
STA RESET+1 
LDA DDSINI-l-1 
STA RESET+2 
LDA tt <RESET 
STA DOSINI 
LDA « >RESET 
STA DOSINI+1 

LDA DOSUEC 
STA UNHOOK+1 
LDA DOSUEC+1 
STA CP_HI+1 



7220 




LDA « <G0_CP 


7230 




STA DOSUEC 


7240 




LDA « >G0_CP 


7250 




STA DOSUEC+1 


7260 


i 




7270 




LDA MEMLO 


7288 




STA DLD_ML+1 


7298 




LDA MENLO+l 


7388 




STA 0LD_MH+1 


7318 




LDA U <PROGEND 


7328 




STA MEMLO 


7338 




LDA n >PROGEND 


7348 




STA MEMLO+1 


7358 


INIT_RTS RTS 


7368 






7378 


; COMMAND PROCESSOR ENTRY 


7380 






7390 


GO. 


-CP JSR HOOKl 


7400 




LDA »$FF 


7410 




STA MARMST 


7420 


/ 




7430 


MAIN CLD 


7440 




JSR INPUT ;get line 


7450 




LDA MYBUF 


7460 




CMP »'» ; Batch? 


7478 




BNE NO_BAT 


7488 




JMP BATCH 


7498 


f 




7500 


NO- 


-BAT CMP tt'; 


7518 




BEQ MAIN 


7528 




LDY ttO 


7530 




JSR FINDFILE 


7540 




LDA DEUICE+3 


7550 




CMP ttEOL 


7560 




BNE NO_REM 


7570 




LDA DEVICE 


7580 




STA DEFDEV 


7590 




LDA DEUICE+l 


7688 




STA DEFDEU+1 


7618 




JMP MAIN 


7628 


/ 




7638 


N0_ 


-REM LDA » <COMTAB 


7640 




STA FRO 


7650 




LDA tt >COMTAB 


7660 




STA FRO+1 


7678 




LDX ttO 


7688 


COMLP LDY »0 


7698 


COMCK LDA MYBUF,Y 


7788 




CMP tFR0J,Y 


7718 




BNE TRYNEXT 


7728 




INY 


7738 




CPY «3 


7740 




BNE COMCK 


7758 


S 




7768 




LDA COMADRL,X 


7770 




STA CGMJ5R+1 


7780 




LDA COMADRH,X 


7790 




STA COMJSR+2 


7800 




JSR FINDARG 


7818 


CONJSR JSR SFFFF 


7828 




JMP MAIN 


7838 


t 




7848 


TRYNEXT LDA FRB 


7858 




CLC 


7868 




ADC tt3 


7870 




STA FRO 


7880 




BCC TRY_NH 


7890 




INC FRO+l 


7900 


TRY 


-NH INX 


7910 




CPX SHUMCOM 


7920 




BNE COMLP 


7930 




JSR LOADIT 


7940 




JMP MAIN 


7950 






7960 


;Fi 


nd an Argunent on Line 


7970 







44 
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7988 


;EHTER: 


7990 


;v: 


Offset to start search 


8000 






8010 


;exit: 


8020 


;y: 


1st char of arguMent 


8030 






8040 


FINDARG LDA MYBUF^Y 


8050 




CMP nsie 


8060 




BEQ NEXTARG 


8070 




CMP ttEOL 


8080 




BEQ NEXTARG 


8090 




IHY 


8100 




BNE FINDARG 


8110 


NEXTARG LDA MYBUF,Y 


8120 




CMP ttS20 


8130 




BNE FOUNDARG 


8140 




INY 


8150 




BNE NEXTARG 


8160 


FOUNDARG STY LNP05 


8178 




RT5 


8180 






8190 


;Handle a BATCH File 


8200 






8210 


BATCH LDY ttO 


8220 




LDA tt$20 


8230 




STA MYBUF 


8248 




JSR FINDARG 


8250 




JSR FINDFILE 


8260 




LDA tt <BAT 


8278 




LDY It >BAT 


8288 




JSR ADD_EXT 


8290 


BAT 


-GO LDA ttl2 


8300 




JSR BAT-CIO 


8310 


} 




8328 




LDA n <DEUICE 


8338 




STA ICBALB 


8340 




LDA n >DEVICE 


8350 




STA ICBAHB 


8360 




LDA tt4 


8370 




STA AUXIB 


8380 




LDA tt3 


8390 




JSR BAT_CI0 


8400 




BPL BAT_NAIN 


8418 




LDA ttl2 


8420 




STY FRO 


8438 




JSR BAT-CIO 


8448 




JSR lO-ERR 


8450 


BAT. 


-MAIN JMP MAIN 


8460 


BAT. 


-9B LDA ttEOL 


8470 




BNE BAT-XIT 


8480 


t 




8490 


BAT. 


-GET LDA BAT_IOCB 


8500 




BPL BAT_PROC 


8510 


BAT. 


-NORM LDX tt^eO 


8520 




LDY Itl 


8530 


EGET JMP SFFFF 


8540 


I 




8550 


BAT. 


-PROC LDA Ue 


8568 




STA ICBLLB 


8578 




STA ICBLHB 


8588 




LDA tt7 


8598 




JSR BAT-CIO 


8688 




BMI BAT-NORM 


8610 




LDA BAT-ZIO+15 


8628 




PHA 


8638 




JSR EPUT 


8648 




PLA 


8658 


BAT. 


-XIT LDX ttSOO 


8668 




LDY ttl 


8678 




RTS 


8688 






8698 


jperforM BATCH CIO 


8788 






8718 


BAT. 


-CIO STA ICCOMB 


8720 




JSR BAT-SWAP 


8730 




LDX tt$50 


8740 




JSR CIOU 



8750 


STA BAT-ZIO+15 




8760 


BPL BAT-SMAP 




8778 


TYA 




8788 


PHA 




8798 


LDX tt$58 




8800 


JSR CLOSEIT 




8810 


PLA 




8820 


TAY 




8830 






8840 


;Swap lOCB Blocks 




8858 






8868 


}AT-SMAP TYA 




8878 


PHA 




8888 


LDY nSBF 




8898 


3AT-SLP LDA ZIOCB,Y 




8988 


PHA 




8918 


LDA BAT-ZIO,Y 




8928 


STA ZIOCB,Y 




8938 


PLA 




8948 


STA BAT-ZIO,Y 




8958 


LDA I0CB5,Y 




8960 


PHA 




8970 


LDA BAT_IOCB,Y 




8980 


STA I0CB5,Y 




8990 


PLA 




9000 


STA BAT_I0CB,Y 




9010 


DEY 




9020 


BPL BAT_SLP 




9030 


PLA 




9040 


TAY 




9050 


RTS 




9060 






9070 


iset COPY lOCB 




9080 






9090 


; ENTER: 




9108 


;X=IOCB Index 




9118 


;A=CIO CoMMand 




9128 






9138 


lEXIT: 




9148 


;CIO set for I/O of 12K 


block 


9158 


;at $3000 




9168 






9178 5ET-CPY STA ICCOM, X 




9188 


LDA ttO 




9198 


STA ICBLL,X 




9208 


STA ICBAL,X 




9218 


LDA tt$30 




9228 


STA ICBLH,X 




9238 


STA ICBAH,X 




9248 


RTS 




9258 






9268 


Set ICCOM for Open 




9278 






9288 


ENTER: 




9298 


X=I0CB index 




9388 






9318 ' 


JET-OPN LDA tt3 




9328 


STA ICCOM, X 




9338 


RTS 




9348 , 






9358 , 


Copy I/O Error 




9368 J 






9378 J 


ENTER: 




9388 J 


V=CI0 Error « 




9390 , 






9400 , 


exit: 




9418 1 


Channels ttl and tt2 are 


Close 


9428 , 






9438 C 


;PY_IOR JSR IDERROR 




9448 


JMP CL0SE2 




9458 J 






9468 


Handle COPY Verb 




9478 






9488 ( 


iOPY JSR FINDFILE 




9498 


JSR CLOSEl 




9588 


JSR SET_DEy 




9518 


JSR SET-OPN 
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4S 



9528 


J5R SET_4 


9530 


BMI CPY_I0R 


9548 


PRINT DEUICE 


9558 


LDY LNP05 


9568 


J5R FINDARG 


9578 


JSR FINDFILE 


9588 


J5R CL0SE2 


9598 


JSR SET_DEU 


9688 


JSR 5ET_0PN 


9610 


LDA ns 


9620 


STA AUX1,X 


9638 


JSR ciog 


9648 


BMI CPY_I0R 


9658 ; 




9660 


JSR 5ET_DEST 


9678 COPY. 2 LDX tt$ie 


9688 


LDA tt7 


9698 


JSR SET_CPY 


9780 


JSR CIOU 


9710 


BMI EOF 


9720 


LDA ttl 


9730 


STA COUNT 


9740 


BNE SAULEN 


9750 ; 




9760 EOF LDA ttO 


9770 


STA COUNT 


9780 ; 




9790 SAULEN LDA ICBLL,X 


9800 


STA LENSAU 


9810 


LDA ICBLH,X 


9820 


STA LENSAUI^l 


9830 


LDX tt$2e 


9840 


LDA ttll 


9850 


JSR SET_CPY 


9860 


LDA LENSAV 


9870 


STA ICBLL,X 


9888 


LDA LENSAV+1 


9890 


STA ICBLH,X 


9980 


JSR CIOU 


9910 


LDA COUNT 


9928 


BNE COPY. 2 


9938 


JSR CLOSEl 


9948 


JMP CL0SE2 


9958 ; 




9968 ;Progran Text/Buffers 


9978 ; 




9988 NOCART .BYTE "No CarfSE0L,8 


9990 PROMPT .BYTE EOL 


018008 


DEFDEU .BYTE "DlI'SO 


810010 


DIRNAM .BYTE '■*.«'■, EOL 


010020 


EDEU .BYTE "E:",EOL 


818830 


ERTXT .BYTE "Error- " 


010040 


ERBUF .BYTE " ",EOL,0 


018050 


HEXDZG .BYTE "0123456789" 


010060 


.BYTE "ABCDEF" 


018870 


COM .BYTE E0L,"M0C." 


818880 


BAT .BYTE EOL, "TAB." 


818890 




010100 


;CoMMand Tables 


010110 




010120 


COMTAB .BYTE "ERAPROUNPREN" 


010130 


.BYTE "DIRCOPRUN" 


818148 


.BYTE "CARTYPKIL" 



010150 ; 

010160 COMADRL 

010170 .BYTE 

010180 .BYTE 

010198 .BYTE 

010200 .BYTE 

010210 .BYTE 

010220 .BYTE 

010230 .BYTE 

818240 .BYTE 

010250 .BYTE 

010260 ; 

010270 COMADRH 

010280 .BYTE 



.BYTE <ERASE 
<PR0TECT 
<UNPR0TECT 
<RENAME 
<DIRECT 
<COPY 
<MEMRUN 
<G0CART 
<TYPE 
<KILL 

.BYTE >ERASE 
>PROTECT 



010290 
010300 
010310 
010320 
010330 
010340 
010350 
010360 
010370 
010388 
010390 
010400 
010410 
010420 
010430 
010440 
810450 
010460 
010478 
010480 
010490 
010500 
010510 
010520 
010530 
010540 
810550 
010560 
010570 
010580 
010590 
010600 
010610 
010620 
010630 
010640 
010650 
010660 
010670 
810680 
010690 
010788 
810710 
010720 
010730 
010740 
010750 
010760 
010770 
010780 
010790 
010888 
810818 
810820 
010838 
818840 
010850 
010860 
010870 
010880 
010898 
810900 
010910 
010920 
010930 
010940 
010950 
010960 
010970 
010988 
810990 
011000 
011010 
011020 
011030 
811840 



.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



>UNPR0TECT 

>RENAME 

>DIRECT 

>C0PY 

>MEMRUN 

>G0CART 

>TYPE 

>KILL 



ADDRESS .MORD EPRDN ;RUN Addr 

DEUICE .BYTE "Dl : " 

i 

jBuf fers 

FNAME .BYTE "AUTORUN.BAT" 

.BYTE EOL,0 

.DS 17 
INDEX .DS 1 JHATABS Index 
5ETFLAG . DS 1 ;set up? 

Uedge/Handler Space 

For Batch Processing 

BAT_ZI0 .DS 16 ;Zpage lOCB 
NEM-E.HAN . DS 16 ;E: Handler 
BAT_I0CB .DS 16 ;IOCB tt5 Copy 
ICCOMB = BAT_I0CB+2 
ICBALB = BAT_I0CB+4 
ICBAHB = BAT_I0CB+5 
ICBLLB = BAT_I0CB+8 
ICBLHB = BAT_I0CB+9 
AUXIB = BAT_I0CB+10 

PROGEND = * 

T_LENGTH = PROGEND-ORIGIN 

i 

; Entry Point to Start CP 

ENTRY LDX ttO 

STX SETFLAG 

STX MARMST 

INX 

STX BOOT? 

JSR HOOKUP 
PRINT CREDITS 

JSR CL0SE2 

JSR SET_0PN 

JSR SET_DEU 

JSR SET_4 

PHP 

JSR CL0SE2 

PLP 

BPL HAU_BAT 

LDA TRAMSZ 

BNE G_CART 

JMP CDOSVEC) 
G_CART JMP ($BFFA) 
HAU_BAT PRINT PROMPT 
PRINT FNAME 

PLA 

PLA 

JMP BAT_GO 

CREDITS .BYTE S7D,E0L 

.BYTE "BBK CP - (C) 1987 " 
.BYTE "ANALOG COMputing", EOL 
.BYTE "by: Bryan Schappel" 
.BYTE EOL,0 

} 

;Set Run Address 

*= RUNAD 
.MORD ENTRY 
.OPT LIST 
.END fl 
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B&C . 

Computer Visions 



3257 Kifer Road 
Santa Clara, CA 95051 
(408) 749-1003 



A 



STORE HOURS 
TUE- FRI 10am- 6pm 

SAT - 10am - 5pm 
CLOSED SUN- MON 



ALL TITLES ON DISK 



.>^.. 



800/ X: E/ Ji: E SOFTW y^K-E 

ALL TITLES ON CARTRIDGE 



ENTERTAINMENT 

12 ADAMS ADVENTURES .. 14.95 

ALIANTS 26.95 

ALT. REALITY CITY 26.95 

ALT. REALITY DUNGEON. 2 6.95 
BEYOND CASTLE WOLF.... 14.95 

BISMARK 2 6.95 

BOP S WRESTLE (64K)... 26.95 

BORDINO:1812 26.95 

BOULDERDASH CONSTR.SET 17.95 

BRUCE LEE 17.95 

CASTLE WOLFENSTEIN. .. . 14.95 

DALLAS QUEST 7.95 

D-BUG 7.95 

F-15 STRIKE EAGLE .... 31.50 

FIGHT NIGHT 17.95 

GAUNTLET (64K) 31.50 

DEEPER DUNGEONS 22.50 

GUNSLINGER 2 6.95 

HARD HAT MAC 7.95 

JAWBREAKER 9.95 

KARATEKA 13.50 

KNICKERBOCKERS 13.50 

KORONIS RIFT 13.50 

LAST V-8 8.95 

LEADERBOARD 13.50 

MAIL ORDER MONSTERS .. 13.50 
MICROLEAGUE BASEBALL.. 35.95 
MONTEZUMA'S REVENGE... 14.95 

MOUSEQUEST 17.95 

MOON SHUTTLE 7.95 

NINJA 8.95 

OIL' S WELL 9.95 

O'RILEY'S MINE 9.95 

PIRATES OF BARB. COAST 22.50 

PREPPIE I S II 9.95 

RESCUE ON FRACTALAS... 13.50 

SILENT SERVICE 31.50 

SPEEDKING 8.95 

SPIDERMAN 7.95 

SPITFIRE 40 31.50 

STARFLEET I 44.95 

SPY VS. SPY III 17.95 

STOCKMARKET 22.50 

STRIP POKER 26.95 

SUMMER GAMES 17.95 

TAX DODGE 9.95 

THE HULK 7.95 

TOMAHAWK (64K) 2 6.95 

TOP GUNNER 17.95 

TOUCHDOWN FOOTBALL ... 13.50 

TRAILBLAZER 26.95 

UNIVERSE 44.95 

ZAXXON 13.50 

PROGRAMMING 

ACTION! . 71.95 

ACTION! TOOLKIT 26.95 

BASIC XL 53.95 

BASIC XL TOOLKIT 26.95 

BASIC XE 71.95 

DISK I/O 26.95 

DRAPER PASCAL 44.95 

KYAN PASCAL 62.95 

LIGHTSPEED C 35.95 

LOGO 29.95 

MAC/65 71.95 

MAC/65 TOOLKIT 26.95 

MACROASSEMBLER 22.50 

PILOT 19.95 

SPARTA DOS X 71.95 

TOP DOS 1.5 PLUS 35.95 

PRODUCTIVITY 

ANIMATION STATION .... 89.95 

ATARIWRITER+ 3 9.95 

ATARI BOOKKEEPER 24.95 



ATARI MUSIC II 14.95 

AWARDWARE (1050) 13.50 

BANK STREET WRITER.... 14.95 

BLAZING PADDLES 31.50 

CELEBRITY COOKBOOK ... 2 6.95 
COMPUTE YOUR ROOTS ... 35.95 

DATAMANAGER 17.95 

FAMILY FINANCE 6.95 

GUITAR WIZARD 26.95 

HOME ACCOUNTANT 19.95 

HOME FILING MANAGER. . 6.95 

HOMEPAK 24.95 

INVENTORY MASTER 80.95 

LETTER WIZARD 29.95 

MUSIC CONSTRUCTION SET 13.50 
NEWSROOM (1050 - 64K) . 13.50 

NEWS STATION 2 6.95 

NEWS STA. COMPANION. . 2 6.95 

PAGE DESIGNER 26.95 

PRINT POWER (1050).... 13.50 

PRINTKIT (1050) 13.50 

PRINTSHOP 34.95 

P.S. COMPANION (64K) . 24.95 
P.S.GRAPHICS LIBRARY 1 17.95 
P.S.GRAPHICS LIBRARY 2 17.95 
P.S.GRAPHICS LIBRARY 3 17.95 

PROOF READER 17.95 

PUBLISHING PRO 35.95 

RUBBER STAMP 26.95 

SYNTREND 14.95 

SUPER MAILER 35.95 

THE LOTTO PROGRAM .... 17.95 

TIMEWISE 6.95 

TURBOWORD/80 COLUMN 

REQUIRES XEP80 44.95 

VIDEO TITLESHOP (64K). 26.95 

GRAPHICS COMPANION. 17.95 

VIRTUOSO 29.95 

VISICALC 24.95 

EDUCATION 

ATARI LIGHT MODULE 

(REQ.ATARILAB STARTER) 9.95 

BUZZWORD 35.95 

GRANDMA'S HOUSE (-10) 9.95 

HEY DIDDLE (AGE 3-10). 9.95 

MASTER TYPE 14.95 

PLANATARIUM 22.50 

STATES AND CAPITALS .. 9.95 

TOUCH TYPING 9.95 

CBS (AGE 3-6) : 

ASTROGROVER 8.95 

BIG BIRD SPEC DELIVE 8.95 

ERNIE'S MAGIC SHAPE. 8.95 
DESIGNHARE: 

MATHMAZE (6-11) .... 35.95 
MISSION ALGEBRA (13+)35.95 

SPELLICOPTER (6-11). 35.95 
TINK TONK (AGE 4-6) : 

ABC S 8.95 

COUNT AND ADD 8.95 

SMART THINKER 8.95 

SPELLING 8.95 

SUBTRACTION 8.95 

THINKING SKILLS .... 8.95 

ALL 6 TINK TONKS.. 39.95 
UNICORN: 

10 LITTLE ROBOTS 

(PRE-SCHOOL) 26.95 

FUN BUNCH {6-ADULT) 26.95 
RACECAR RITHMETIC 

(AGE 6 + ) 26.95 

WEEKLY READER (PRE-SCHOOL) : 

STICKY BEAR SHAPES . 26.95 

STICKY BEAR NUMBERS. 26.95 

STICKY BEAR ABC'S .. 26.96 

STICKY BEAR OPPOSITE 26.95 



ENTERTAINMENT 

ALIEN AMBUSH 9.95 

ACE OF ACES .(XL/XE) . 24.95 

ARCHON 19.95 

ASTEROIDS 15.95 

ATARI TENNIS 9.95 

BALL BLAZER 19.95 

BARNYARD BLASTER .... 24.95* 

BATTLEZONE 19.95 

BLUE MAX 19.95 

CAVERNS OF MARS 14.95 

CENTIPEDE 14.95 

CHICKEN 9.95 

CHOPLIFTER 14.95 

CLAIM JUMPER 9.95 

CLOUDBURST 9.95 

CRIME BUSTER 24.95* 

CROSSBOW 24.95* 

CROSSFIRE 9.95 

DAVIDS MIDNIGHT MAGIC 19.95 

DEFENDER 14.95 

DELUXE INVADERS 7.95 

DESERT FALCON 19.95 

DIG DUG 19.95 

DONKEY KONG 5.00 

DONKEY KONG JR 19.95 

EASTERN FRONT (1941). 19.95 

E.T. PHONE HOME 9.95 

FIGHT NIGHT 19.95 

FINAL LEGACY 19.95 

FOOD FIGHT (XL/XE)... 19.95 

FOOTBALL 14.95 

FROGGER 14.95 

GALAXIAN 19.95 

GATO 24.95 

GORF (400/800) 5.00 

GYRUSS 14 .95 

HARDBALL 19.95 

INTO THE EAGLES NEST 19.95 

JOURNEY TO PLANETS .. 9.95 

JOUST 19.95 

JUNGLE HUNT 19.95 

KABOOM! 14.95 

LODE RUNNER 24.95 

MARIO BROS 19.95 

MILLIPEDE 19.95 

MISSILE COMMAND 5.00 

MOON PATROL 19.95 

MR. COOL 9.95 

MS. PAC MAN 19.95 

NECROMANCER 19.95 

ONE ON ONE (XL/XE)... 19.95 

PAC MAN 5.00 



PENGO 

POLE POSITION 

POPEYE 

Q-BERT 

QIX 

RESCUE ON FRACTALAS . 
RETURN OF THE JEDI . . 

ROBOTRON:2084 

SKY WRITER 

SLIME (400/800) 

SPACE INVADERS 

STAR RAIDERS 

STAR RAIDERS II 

SUPER BREAKOUT 

TRACK S FIELD 

TURMOIL 

WIZARD OF WOR 

* REQUIRES LIGHT GUN 



19.95 
19.95 
14.95 
14.95 
14.95 
19.95 
14.95 
19.95 
14.95 

9.95 
14.95 

5.00 
19.95 

9.95 
24.95 

9.95 

5.00 



PRODUCTIVITY 

ATARIWRITER 19.95 

MICROFILER 22.50 



EDUCATION 

ATARILAB STARTEER SET 29 

MATH ENCOUNTERS 9 

FISHER PRICE (PRE SCHOOL 

DANCE FANTASY 

LINKING LOGIC 

LOGIC LEVELS 

MEMORY MANOR 

SPINNAKER (AGE 3-10) 

ALF IN COLOR CAVES . 

ALPHABET ZOO 

DELTA DRAWING 

FACEMAKER 

KIDS ON KEYS 

KINDERCOMP 

(AGE 7 - ADULT) : 

ADV. CREATOR (400/800 

FRACTION FEVER 



.95 

.95 

): 

.95 

.95 

.95 

.95 

.95 
.95 
.95 
.95 
.95 
.95 

.95 
.95 



THE BASIC TUTOR 

Learn to program in BASIC 

Requires a 410 OR 1010 Program Recorder 

COMPLETE PACKAGE ONLY $9.95 



BOOKS ONLY 

DE RE ATARI 

LOGO 

ATARIWRITER 

DOS 2.5 

BASIC REFERENCE 

BOOKKEEPER 



10.00 
10.00 
10.00 
12.95 
5.00 
10.00 



♦ 



S ZJJPEl^ S FEC Z^L E S 

RECONDITIONED ATARI MERCHANDISE 

30 DAY WARRANTY 



# 



800 (48K) 
COMPUTER 

$79.95 

400 (ICK) 
COMPUTER 

$29.95 



1020 COLOR 
PRINTER/ PLOTTER 

$19.95 



40 COLUMNS WIDE 
(NEW IN BOX) 



SPACE AGE 

JOYSTICK 

$5.00 

ATARI 
TRACKBALL 

$9.9S 



ATARI 
BOOKKEEPER 
$14.95 - NO BOX 

ATARI 

NUMERIC 

KEYPAD $7.95 



1030 MODEM 
WITH EXPRESS! 

$24.95 

1010 PROGRAM 

RECORDER 
$29.95 



DISKETTES 
AS LOW AS 20 CENTS 

10 FOR $4.00 

100 FOR S29.95 

1000 FOR $200 

MOST ARE UNNOTCHED 

WITH OLD SOFTWARE 



SHIPPING INFORMATION - Prices do not include shipping and handling. Add $5.00 tor small items ($8.00 Min. for Canada). Add $8.00 for disl< 
drive Add $2.75 for C.O.D. Calif, res. include 7% sales tax. Mastercard and Visa accepted if your telephone is listed in your local phone directory 
Orders may be pre-paid with money order, cashier checl^, or personal check. Personal checks are held for three weeks before order is processed. 
CO D orders are shipped via UPS and must be paid with cash, cashier check or money order. International and APO orders must be pre-paid with 
casfiier check or money order. $20.00 minimum on ali orders. All sales are final - no refunds - prices are subject to change. 

Phone orders accepted TUESDAY THROUGH FRIDAY from 10:00 am to 6:00 pm PST. 

We carry a complete line of ATARI products anci have a large public domain library. 

Write or call for free catalogue. (408) 749-1003 TUE - FRI 10AM - 6 PM 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE - ALL SALES ARE FINAL 



CIRCLE #104 ON REAOER SERVICE CARD. 
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It seems to me that there are two types of 
computer enthusiasts in this world: program- 
mers and users; and each group has its own 
philosophy and language. You can usually tell 
the difference by the way they act: program- 
mers program and users use. 

I guess I fall in the former category. I can 
tell because of what happened to me when 
Newsroom was released. Of course I bought 
the whole set of five disks and decided to 
learn how to use it and in the process make 
a family newsletter. I started out making the 
banner at the top of the page and immediate- 
ly ran into trouble. You see, I wanted to use 
my family symbol on the header, and in spite 
of the 2,000-1- graphics in the Newsroom set, 
none of them is a compass star. In fact, there 
are no stars at all. So I figured I could use 
the one from my Print Shop disk, but News- 



room does not have a routine to incorporate 
outside graphics or to save graphics you cre- 
ate onto a Newsroom format disk. (You can 
save them on DOS disks as photos or ban- 
ners but not as Newsroom clip art disks). 

The only recourse I had was to use the 
built-in graphics editor which is both clum- 
sy and slow. Too bad I couldn't use Micro- 
Painter and transfer my creation over. Imme- 
diately wheels started turning, and before I 
ever got started on the newsletter, I was 
pounding the keyboard. That's how I know 
I am a programmer, not a user! Here is what 
I humbly call the Ultimate Graphics File 
Convenor (UGFC)! 



Typing It In 



To create your copy of UGFC, first type 
in Listing 1 (checking your work with BA- 



SIC Editor II, found elsewhere in this issue) 
and save it to disk. Then type in Listing 2, 
save it and run it. A file named TEMP.LST 
will be written to your disk. Now load the 
program you typed from Listing 1 into your 
computer's memory and type ENTER 
"D:TEMP.LST" to merge the lines created 
by Listing 2 with the main program. Final- 
ly, save the completed program to disk. 

For Users 

With UGFC you have four formats to work 
from: Graphics 8, MicroPainter, Print Shop 
and Newsroom. Operation is quite simple. 
First you will select a Load Format then a 
Save Format (not the same type). After in- 
serting the proper type of disk, the menu for 
that disk will appear. You then select the file 
you want and the desired picture will load. 
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Next a set of four lines will appear which you 
move around the screen to defme the area you 
wish to save. Print Shop saves are a fixed size 
while the others can be any size. 

Finally, you give the Save filename and 
your screen is saved. The disk you save to 
must be an unneeded disk, because it will be 
formatted and dedicated to the single file. 
From this disk, you can save Graphics 8 and 
MicroPainter files to any DOS disk, while 
Print Shop saves can be loaded into the Print 
Shop editor then re-saved to your Print Shop 
file disk. Newsroom clip art files cannot eas- 
ily be added to another disk, but you can con- 
vert then to a photo or banner and save them 
to a DOS disk. 

Tutorial 

Newsroom and Print Shop both display 
their graphics as monochrome, high resolu- 
tion (i.e. Graphics 8) pictures. These can 
readily be converted to standard 62-sector 
DOS files, as well as the other way around, 
within size constraints. The problem arises 
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when you try to convert between Graphics 
8 screens and MicroPainter's Graphics 15 (or 
IVi or "E"). While both types occupy 7,680 
bytes, the graphics mode 15 has only one half 
the horizontal resolution of Graphics 8. By 
assigning two bits to each pixel, you lose 
resolufion but gain four colors. 

You can load a Graphics 15 picture into a 
Graphics 8 screen, but you will still have only 
160 columns of resolution, and you will lose 
your color information (although there is ar- 
tifacted color which can look quite good). 
Conversely if you load a Graphics 8 picture 
into a Graphics 15 screen, you can display 
only 160 pixels per line, but the additional 
informadon creates strange color artifacts. 
(See Figure 1.) 

Pixels in GR- 15 



o 1 1 C) 1 1 



bit val ues 



□ □ff 



LH Background 
Eg Col or 1 
^ Col or 2 
■ Color 3 



FIGURE 1 



With careful attention paid to selection of 
color values and fill patterns you can reasona- 
bly exchange Graphics 8 and Graphics 15 
screens. 

Storage Techniques 

Nothing really needs to be said about 
Graphics 8 storage. Each file is simply a 
7,680-byte screen transferred to disk in a 
block. MicroPainter is the same except that 
after the screen bytes, the values of the four 
color registers are added. The real difficult 
storage forms are Print Shop and Newsroom. 

Print Shop graphics disks (not including 
the original Print Shop disk) have a directo- 
ry in Sectors 362 to 393 with each entry oc- 
cupying 32 bytes instead of 16 like DOS. 
Sector 361 has the essential disk ID info and 
a VTOC or sector map. Each entry contains 
the starting sector of the graphic and an ID 
byte. Each graphic is 88*52 pixels or 572 
bytes long. Each sector contains 126 bytes of 
data and two bytes containing the number of 
the next sector much the way DOS does. (See 
Figure 2.) 



SECTOR 361 



SECTOR 362 



CLIP ART DISK VOLUME ONE 



01234567 



01234567 



SECTOR 13 



PRINT 



V 



VTOC BYTE 
EACH BIT=1 SECTOR 
ie. FF-8 SECTORS 
F8»5 SECTORS 



-DISK ID BYTE 
0»PRINT SHOP 
2. GRAPHICS 
3.USER MADE 

GRAPHICS 
4=C0MPANI0N 



7 6 5 
FIRST 



FIGURE 2 



NAM 
Y T E 



\,/ 



START 
SECTOR 



2 1 
LAST 



TYPE ID 
x-COMPANION 
X-PRINT SHOP 



Each Newsroom clip art disk is in enhanced 
density mode and contains around 1,000 sec- 
tors. Fortunately, the disk drive and resident 
disk handler in the OS readily handle such 
problems. The process of loading a file be- 
gins with Sector 1. Here you find an ID head- 
er followed by the name of each file stored 
as ASCII text. Each name is separated by a 
character 0. The directory space extends to 
Sector 12 but doesn't seem to be used beyond 
Sector 4. Beginning at Sector 13 and extend- 
ing up to about Sector 24 is a table of sec- 
tor/byte locations for each graphic on the 
disk. Graphics are segregated into files, each 
one making up one screen and having one 
filename. Files are separated by headers con- 
sisting of two consecutive character 255s. 
(See Figure 3.) 

First, you read the directory while count- 
ing the number of filenames you pass in order 
to find the one you want. Then you must 
search the sector table looking for and count- 
ing the file separators until you reach the one 
you want. For example, in Clip Art Volume 
1, AUTOl is the third name in the directory 
so you search until you fmd the second header 
in the sector table. The next three-byte entry 
will be the first graphic in the AUTOl file. 
Now by our example this would be 181,3,82. 
The sector number is 181+3*256 or 949 and 
the offset into sector 949 is byte 82. The data 
for this file is illustrated in Figure 4. 

The first four bytes give the screen bound- 
aries of the graphic. Following are two types 
of data, single and repeat. Single data is a sin- 
gle byte whose value is placed directiy on 
screen. To save disk space, when a byte is 
used more than once in a row, a special code 
is used to "compress" the data (most pictures 
contain large amounts of repetitive data). 
Each repetition is three bytes long: a indi- 
cates a repetition followed by the number of 
repeats then the value to be repeated. Of 
course that means that any blank space, or 
0, must be represented as a repetition: A sin- 
gle blank would then be 0, 1, 0. Since blanks 
are the most common repeat, it works out 
well. 

Finally, bytes are scanned vertically, not in 



# OF FILES ON THIS SIDE 



SIDE 1 OR 2 

DISK ID# 
O-MAIN DISK 
l-CLIP ART VOL. 

2» 

3= 



the usual horizontal fashion, proceeding 
column by column from the upper left to the 
lower right. Each sector uses all 128 bytes 
so there is no forward chaining or jumping 
sectors. Each sector must be contiguous with 
the last as are all graphics within a file. The 
left-hand margin of the screen area is actual- 
ly 8, so any graphic saved past that margin 
will overwrite the Icon area and will be "in- 
verted." Try not to save graphics past the left 
margin, but don't worry about Print Shop 
graphics; they are automatically marginated. 



Final Notes 
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FIGURE 3 



With UGFC you now have a way of chang- 
ing one format to another among the best and 
most commonly used graphics programs. 
While UGFC should run on any type of Atari 
computer, I doubt it would work on an 810 
disk drive because of the number of sectors 
on the disk; but if your drive will run News- 
room, it will run UGFC. 

To round out UGFC, you will need a 
Graphics 8 paint program. The only one I am 
aware of is Graphics Master by Courtney 
Goodin which is not in current distribution. 
I happen to be lucky enough to be in the same 
users' group as Courtney but for the rest of 
you, hound ANALOG to get one in print! 
[Okay, software authors: Anyone want to sub- 
mit a Graphics 8 paint program?— ed.] One 
exciting possibility is the ability to incor- 
porate digitized photos or illustrations into 
your Newsroom creations. 

So here you find the sum of all I have 
learned in the last two months. Now you 
know why I never finished making my news- 
letter! Maybe I can be a user for a while in- 
stead of a programmer— that is until the next 
idea hits me! 



Addendum 



As an afterthought I have included a short 
no-frills program to convert Newsroom Pho- 
tos and Banners to Graphics 8 files. You need 
only a load-and-save filename. Newsroom 
stores photos and banners as DOS binary files 
with the first two characters of the filename 
"PH" for a photo and "BN" for a banner 
then a 6-byte filename without extenders. The 
graphics file consists of an 8-byte header, then 
the graphic margins. 

The next group of bytes is variable and con- 
tains the word "Newsroom" at least once. 
Following are some blank spaces and assorted 
data which includes the disk and graphic 
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FIGURE 4 

number of the original Newsroom clip art 
graphic. All this ends in a header that is a 
255 followed by a 0. The banner or photo is 
then stored as a single file with no compres- 
sion, horizonal scan, but in inverted (black- 
on-white background) form. 

To type in this program, first type Listing 
3 and save it to disk. Next type Listing 4, save 
it and run it. A file named TEMPEST will 
be created on your disk. Merge this file with 
the program from Listing 3 in the manner 
described in "Typing it in" above. 
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LISTING 1: BASIC 



EI 1 REM KKMKlCKlOCXltKKKKKKKlCKMKMKMKltlCKKKX 
CU 2 REM K ULTIMATE GRAPHICS * 
PA 3 REM » FILE CONUERTOR » 
OD 4 REM « by Lee Brilliant, M.D. « 
TC 5 REM » « 

F5 6 REM » Copi/right 1989 » 
TC 7 REM « by ANALOG COMPUTING W 
EP 8 REM KKKKMKIOCXKMMMKMMKKMXItKMHlCKKlCKKlC 
Oa 9 GOTO 908 
GE 18 REM «»» 18-588 BASIC SUBROUTINES FO 

R SPEED 
PO 28 IF BUFS(N,NJ="¥" THEN 60 
SG 30 FN$CS]=BUF5CN,N} :S=S+1 
AD 35 N=N+1 
JV 48 IF N=129 THEN N=l : SECT=SECT+1 : GOSUB 

18808 
RV 58 GOTO 28 

5R 68 DIR$CC0UNT«32+1,C0UNT«32+LENCFN$}}= 
FN$:C0UNT=C0UNT+1:P0KE 755, t NOT {PEEK 
(755)JJ»2 
IM 78 IF N=128 THEN N=8 : 5ECT=SECT+1 : G05UB 

18888 
ZG 88 5=1: IF COUNT=SIZE THEN RETURN 
UG 98 GOTO 35 

TV 188 DIR$="":S=e:FOR 5ECT=i3 TO 24:GDSU 
B 10048:DIR$(LENCDIR$}+1)=BUF$C1,128} : 
NEXT SECT 
CJ 110 FOR N=l TO LENCDIR$}:IF S=COUNT TH 

EN POP :GOTO 158 
MZ 128 IF DIRSCN,N+1)="|I3" THEN S=S+1:N=N 
+l:POKE 755,1 NOT (PEEK (755) }}»2 : REM E 
SC-CNTL> 
HU 138 NEXT N 

NQ 158 5ECT=IMT(N/128J :BYTE=N-SECT»128:SE 
CT=SECT+13: RETURN :REM 5&B OF 1ST GRAP 
HIC 
BM 180 X=A5C(BUF$(BYTEJ) :BYTE=BYTE+l:IF B 
YTE>128 THEM BYTE=1 : SECT=5ECT+1 ! G05UB 
18088 
ZP 198 RETURN 

ZD 388 A=USR(ADR(M0UE$),ADR(UNC0MP$},1536 
, LEM (UNCOMP$) ) : A=USR (1536, START, R, SIZE 
,BYTE-1,ADR(BUF$)) :RETURN 
GZ 488 A=USR (ADR (MOUE$}, ADR (C8MP$), 1536, L 
EN(C8MP$1) :A=U5R (1536, START, R, SIZE, ADR 
(DIR$)) :RETURN 
UK 499 REM *it* 580-988 CURSOR CONTROL SUB 

ROUTINES 
GT 500 GET tt2,K:IF K=155 THEN RETURN 
GN 518 IF K=27 THEN POP : POP : GOTO 1085 
MH 528 IF K=32 THEN FLAG= NOT (FLAG): GOTO 

788 
GS 525 IF K>27 AND K<32 THEN ON K-27+D GO 
SUB 688,682,684,686,618,628,638,648,65 
8,660,670,680:GOTO 550 
PV 526 IF D>0 THEN IF K>48 AND K<51 THEN 

D=(K-48)»4 
NE 530 GOTO 508 
RB 558 IF D=8 THEN A=USR (1568, ROMT, COLL, R 

0NT+52,C0LL+88} :GOTO 588 
GH 551 A=USR(1568, ROMT, COLL, ROMB, COLR) :G0 

TO 500 
QG 600 IF R0MT>8 THEN R0MT=R0MT-1 
ZF 601 RETURN 

JG 682 IF R0NT<139 THEN R0MT=R0NT+1 
ZL 683 RETURN 

UC 604 IF COLL>e THEN C0LL=C0LL-1 
ZR 605 RETURN 

DT 605 IF C0LL<231 THEN C0LL=C0LL+1 
ZX 687 RETURN 

01 618 IF R0NT>8 THEN R0WT=R0WT-1 
ZH 611 RETURN 
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MK 628 IF ROWT+KROMB THEN R0MT=R0MT+1 

ZJ 621 RETURN 

TW 630 IF C0LL>8 THEN C0LL=C0LL-1 

ZO 632 RETURN 

IC 648 IF COLL+KCOLR THEM C0LL=C0LL+1 

ZN 641 RETURN 

PM 650 IF R0MB-1>R0MT THEN ROMB=ROMB-1 

ZP 651 RETURN 

OK 668 IF R0MB<191 THEN R0NB=R0MB+1 

ZR 661 RETURN 

ZK 678 IF C0LR-1>C0LL THEN C0LR=C0LR-1 

ZT 671 RETURN 

WY 688 IF C0LR<319 THEN C0LR=C0LR+1 

ZV 681 RETURN 

DM 708 IF FLAG=8 THEN GOSUB 13828: GOTO 58 

8 
AR 718 GOSUB 13838:? "ISUSE ■Ltli^f^i^^ TO MO 

UE FRAME. USE [B3" ! ? "TO GO BACK, fiTWJTI 

HU TO SAVE GRAPHIC," 
NE 728 ? "AMD HJ:TiiJi:n:l TO TOGGLE HIMDOH. 

":IF T0=4 THEN ? "1 4 2 SELECT CURSOR 

LINES."; 
NG 738 GOTO 588 
YC 800 POSITION 8,0LDY:? «6;" ": POSITION 

0,NMY!? »6;"*":0LDY=NMY 
HA 810 GET tt2,K 
PM 828 IF K=28 OR K=45 THEN NMY=NHY-2 : GOT 

860 
LX 838 IF K=29 OR K=61 THEN NHY=MMY+2: GOT 

868 
NH 848 IF K=155 THEN 890 
PA 858 GOTO 818 

SU 868 IF NHY<YMIN THEN NMY=YMAX 
SR 878 IF NMY>YMAX THEN NMY=YMIN 
OU 888 GOTO 800 

JU 898 SELECT=(NWY-YMIM+2)/2: RETURN 
PU 908 REM DIMENSION VARIABLES 
PM 901 OPEN tt2,4,0,"K:" 
QL 910 DIM CALL$(5),BUF$(129),FN$(16],DIR 

«$(7688] ,M0VE$(49) ,0RA$(51] ,CURS0R$(243 
),R0R$(43),R0L$(44) 
928 DIM C8MP$(239),UNC0MP$(194) 
BM 963 CURS0R$(74,74)=CHR$(157) :CURS0R$(2 

27,227)=CHR$(255) 
MA 1000 OPEN tt6,12,8,"S:":DL=PEEK(568)+25 
6*PEEK (561) : POKE DL+2,70:POKE DL+3,PEE 
K(DL+4):P0KE DL+4,PEEK(DL+5) 
DP 1001 POKE DL+5,6:P0KE 718,8:P0KE 789,1 

4:P0KE 82,8 
TM 1885 POKE 752,1:? CHR$(125);" ULTIMAT 

E GRAPHI CS OBBr^-t'lil'JJ !»■>■»" 
HD 1010 ? " BJil;l!r; UfiB T'r=^M^!M^ "!? :? " 

1)MICR0PAINTER(62 SECTOR)" 
W 1020 ? :? " 2) GRAPHICS 8 SCREEN":? :? 
" 3) PRINT SHOP ICON" 

"^^ —J2.J,..'J^'' * J NEWSROOM":? :? "OUaiED 

JU 1040 ? :? " 1)MICR0PAIMTER(62 SECTOR) 

":? :? " 2) GRAPHICS 8 SCREEN" 
LZ 1050 ? :? " 3) PRINT SHOP ICON":? :? " 

4)MEM5R00M" 
UQ 1060 POKE 703,4:G0SUB 13010 
RJ 1070 0LDY=3:NNY=3:YMIN=3:YMAX=9: GOSUB 

888:FR0M=5ELECT 
UA 1080 0LDY=13:NMY=13:YMIN=13:YMAX=19:G0 

SUB 888 
NK 1898 IF SELECTOFROM THEN 1188 
RA 1895 ? "H ":? "YOU CAN'T USE THE SAME F 

ORMAT AS IJiM! "; GOSUB 13000: GOSUB 13010 

:GOSUB 880:G0T0 1090 
NU 1108 T8=5ELECT 
AX 1288 POKE 783,24:P0KE 752,1:? "H" : ? "I 

M5ERT SOURCE DISK. PRESS AMY KEY." 
HG 1218 GET tt2,K 
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HACK PACK 

Special OFFER 

The Alpho Systems HACK PACK contains all our 

tinest products (or moking Back-up copies, 

Analyzing, Understanding and Protecting your 

Atari programs It comes complete witti Atari 

Protection Techniques (Book ond Disk I), Advanced Protection Techniques (Book and Disk II), The 

Chipmunk, The Sconolyzet The Impersonator and Disk Pack 1 0(K). Worth over S 1 50. Get them all 

tor the special price ol Just $99.95 

Atari Software Protection Tecliniques Vol I & II 

These Book and Disk packages detail the most advanced copy protection methods in use today They 
guide you through the liiethods used to create the protection as well as the copying techniques to get 
oround them. They include information on Phreoking • Hacking • On-line security ■ Block boxes • Self- 
desltucling programs • Pirate bulletin boord systems • Logic bombs ■ New piracy laws • Hardware 
data keys • Weok sectoring (Phantom, Fuzzy and unstable sectors) • Overfilled tracks • CRC errors 
Bonk Select cartridges and IvIUCH, MUCH MORE. The disks include automatic program protectors. 
Protection Sconners, directory hiding and more. 
BOOK I and DISK I $24.95 

BOOK II (Advanced protection) and DISK II $24.95 
Special Otter, Order botti sets tor Only $39.95 
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ALPHA SYSTEMS is constantly innovating to provide more power 
for your 8-bl1Atarls 



CHIPMUNK 

Automatic Disk Bock-Up System. Moke perfectly running unprotected back-up copies of hundreds of 
the most popular Aloti progroms. Chipmunk's sophisticated programming Automatlcolly finds and 
REMOVES copy protection Irom most Atoti programs Back-up even heavily protected programs with 
ease Finally o back-up system ttiat needs no special hardware or skills. 
(II you need a full list of whot Chipmunk copies, coll or write for our free calolog) $34.95 



Scofiolyzer Automatically scon & analyze commercial programs Unlock programming secrets and 
leotn from the masters $29.95 

Impersonator Cartridge to Disk back up system. Create running back-up copies of any cartridge 

(up,lol6K) S29.95 



"^ CHEAT 

Get more irom vour games with CHEAT Tired of spending days trying to beat a game? Tired of getting 
stuck just wtien you need onother life'? Ctieaf Is an innovative new product thai gives you the chance 
you need to beat your favorite gomes Cheat works with hundreds of Atari gomes to give you 
unlimited lives or power End the frustration and get hours more enjoyment from your gomes, (Call or 
write Alpha Systems for our Iree calalog with a full hsi ol Ihe programs thai woik with Cheat) ONIY $24.95 

BASIC TURBOCHARGER 

NOW for the first time a BASIC programmer con get the power flexibility and incredible speed of 
mochine language BASIC TURBOCHARGEI^ is o book ond disk pockoge that contains over 1 60 
ready to use mochine language routines Complete instructions show how to add them to your own 
BASIC progroms to get these features and more: • Smooth Scrolling • Player/Missile control ■ Load & 
Save Picture files • Sorting and Searching • Special Eltecis Graphics • Incredible Speed • Much, Much 
More ■ Over 1 50 programs. You've heard ol the power of Assembler, now harness it for your own 
needs s?4 9 5 

- 216-374-7469 




PARROT II 

An All New Parrot sound digitizer for your Atari Parrot I! is o 
sophisticated new hordware device that plugs into your joystick 
pott. Porrot II has two inputs. One for o microphone and one for a 
powered source such as a tape player, radio or Compact Disk. 
The Powerful Parrot II software lets you lecotd sounds into your computer ond play them bock on any 
Atari Porrot II turns your computers keyboard into o musicol instrument with nine different sounds 
covering lliree octoves each The sounds con be anything, o dogs bark, a piano, a complete drum 
set, a symphony or your own voice. 

Parrot II lets you modily the sounds on o groptiic disploy to create brand new sounds and special 
eltccts Best of oil, the sounds and voices con be put into your own programs thot can be used on 
any standard Atori Explore ttie world of digital sound and music ONLY $59.95 
Pre-Recorded Sound Disk More pre-recorded sounds for Parrot $4.95 
RARROT II Demo Disk (Does not require Parrot to run) $5.00 

.•*<f^ nrtn u n/^/^l/ED o fast paced, mulli-pioyer trivia gome that mixes quesfions 

r^^^ rWf-n-KKiK^KtK with reol songs (digitized 

*^with Poriol). Be the first to idenfily the songs and answer the rnusic trivia questions Pop-N-Rocker 
comes with three data disks and lets you odd new questions so il will never get old You con use a 
Parrot Sound digitizer to odd new songs too! Use ony kind of music trom Rock to Clossicol to 
Nufsery f^tiymes A new concept in entertainment and o perfect add-on tor P orroL $24.95 

COMPUTEREYES & MAGNIPRINT II + 

Turn youi computer into o digital portrait studio This complete pockoge lets I 

you capture, sove & print digital images from your Video Camera, VCR 

or TV COMPUTEREYES hardware plugs directly into your joystick ports for 

easy use Print your picture on a 6 foot poster $159.95 

Compute rEyes camera system 

Comes complete with everything above, plus a black and white video , '^ A" 

camera ond connecting cable $329.95 ■tesmMSswl 

Groptiics 9 Software Add a new dimension lo your COMPUTEREYES GIANT WAU SIZED POSTERS. 

pictures coptures images in 16 shades of grey $12.00 

Magniprint II -h 

Eosily ll)e most powerful print program available today Pnnt graphics from almost any forma! in 

hundreds of shapes, sizes, and shades. Supports color printing and lets you create giant posters. 

f^ogniprint II + lets you stretch and squeeze, invert, odd text, adjust sfioding and much more. 

Works with EPSON. NEC. Citoh, Panasonic, Gemini, Star, XMM80I, and compatible printers. (850 

interface or eguivalent required), $24.95 

Graphics Transformer 

Now you con combine the most powerful features of all your groptiics programs. Create ptin! shop 

icons from Koolo pod picture, from a photo digitized with CompuferEyes, or any picture file. 

Graphics Tronsformer lets you Siirink, Enlarge ond Merge pictures for unequoled flexibility, $22.95 

YOUR ATARI COMES ALIVE 

SAVE MONEY Finally an olfernQfive to buying expensive compuler add-ons. Your Atari Comes Alive 
shows you how to built Ihem yourself. This 'How-To' book and disk package gives you complete 
step by step instructions and programs needed to buill and control these exciting devices ond MORE 
• Light Pen • Light & Motor Controllers 'Alarm Systems • Voice Recognition • Environmental Sensors 
•Data Decoders • More than 1 50 pages. Ifour Atari Comes Alive $24.95 




EVSXEMS 



VISA & MASHRCAJID, ORDER BY 
PHONE, OR SEND MONEY ORDER TO: 



ALPHA SYSTEMS 1012 SKYLAND DRIVE MACEDONIA, OH 44056 FREE BONUS: DELUXE SPACE GAMES (3 games 
on disk) Free with any ordei ol 3 or more items Include S3.00 shp & hdig (US Canada) Ohio les odd 5 '.2'^b soles lox 
Foreign orders odd S8 00 shp & hidg. Coll or wiile (or tree cold!og. Cuslomer Service Line (2 1 6) 467-5665 M-f 9-3. 



CIRCLE #10e ON READER SERVICE CARD. 



MY 1380 ON FROM GOSUB 13100,13100,13388,1 

35e8:REM GET DIRECTORY 
ZL 1358 POKE 752,0: TRAP 40000:? •■«•■:? "EM 

TER FILE NftME:"; : INPUT FNS 
US 1480 IF FH$="" THEM 1280 
GA 1500 REH GET FILE MAME 

LF 1501 ON FROH GOSUB 2088,2000,4888,5888 
QK 1515 GOSUB 13830 : TRAP 40000 
UQ 1520 ? "itENTER SAVE FILE NAME :";: INPUT 

FN$ 
AC 1525 IF FHS="" THEM 1520 



lY 1530 ? "WNSERT 



DISK & PRESS A 



NY KEY.":G0SUB 13000 

HV 1540 GET «2,K:? "PRES S ga EECl TO FOR 

MAT & SAVE FILE,":? "OBEl TO QUIT.":G 

ET tt2,K:IF K=27 THEN RUN 
UO 1550 IF K0155 THEM 1530 
YR 1560 TRAP 11300:? "^FORMATTING DISK";X 

10 254,ttl,0,0,"D:":G0SUB 13028 
BV 1608 ON T8 GOSUB 6080,7000,8000,9088 
KR 1700 GRAPHICS 1:P0KE 710,0:? tt6;" YOU 

HAVE FINISHED";? «6;" USING":? tt 

6:? tt6;" the":? tt6 
TM 1710 ? tt6;" [IH«it--»iM ; liH JifWd " : ? tt6;" 

tH»JJ.1.1IJJJ7;n"!P0KE 752,1 
PJ 1728 ? "PRESS RETURN FOR ANOTHER CONUE 

RSIOH." 
VJ 1750 GET tt2,K:IF K=155 THEN RUN 
TN 1760 GOTO 1750 
QH 2000 REM MICROPAINTER GET 
OD 2010 BUFS="D:":BUFSC3)=FN$:FNS=BUFS 
AP 2020 TRAP 11180:0PEN tt3, 4, 0, FN$ : GOSUB 

13020:? lt6;CHR$(1251 
UE 2108 POKE 882,7:P0KE 884, PEEK C88} : POKE 

885,PEEK(89} :POKE 888,e:P0KE 889,30 
GX 2110 A=USR(ADRC"hI10 UQ«"J1: CLOSE tt3 : TR 

AP 40000: RETURN 

5S 



FF 3000 REM GR.8 GET SAME AS MICROPAINTER 

m 4000 REM PS GET 

EW 4018 FNS(LENCFNS)+1)=" 

":? "H"i7 "HJEDHaa ".-FMS 

5H 4820 FOR M=l TO C0UNT*32 STEP 32 : IF DI 

R$(N,N+15}=FN$ THEN POP : GOTO 4050 
PY 4030 NEXT M:POKE 195, 170: POP :G0T0 111 

08 
YD 4050 SECT=ASCCDIR$CN+16))+256KASCCDIR$ 

CN+17)) 
FG 4060 FOR N=l TO 379 STEP 126: GOSUB 108 

40 :DIR$(N}=BUF$ (1,126) : SECT=ASC (BUF$ (1 

27) ) +256«ASC (BUF$ (128) ) : NEXT N 
XZ 4070 GOSUB 10040 : DIR$ (N) =BUF$ (1, 68) : PO 

KE 755,2:G0SUB 13020:? tt6;CHR$(125) 
QQ 4080 START=PEEK(88}+256«PEEK(89) 
QR 4100 FOR N=l TO 572 STEP 11 : A = USR (ADR ( 

ORA$) ,ADR(DIR$)+N-1, START, 11) : START=ST 

ART-l-40:NEXT N 
AH 4110 RETURN 
XP 5000 REM NEMSRODM GET 
BM 5010 FNS(LEM(FN$)+1)=" 

":? "IS": POKE 752,1:? "HJEiaEB ";FNS 

UZ 5020 FOR N=l TO C0UNT«32 STEP 32 : IF DI 

R$(N,N+15)=FN$ THEN POP : GOTO 5050 
PZ 5030 NEXT N : POKE 195,170:P0P :G0T0 111 

00 
RV 5050 C0UNT=(N-l)/32: GOSUB 108 : GOSUB 13 

020:? »6; CHR$ (125) : GOSUB 10888 
MU 5070 GOSUB 188 : LO=X : GOSUB 180:HI=X:G0S 

UB 180:0FF=X 
GY 5088 SECT=L0+256*HI:BYTE=0FF+l:IF BYTE 

>128 THEN BYTE=l:SECT=SECT+l: GOSUB 100 

00 
JD 5090 FOR TIMES=1 TO 16 : DIR$ (1) ="1^" : DIR 

$ (7680) ="V" : DIR$ (2) =DIR$ 
KF 5100 GOSUB 10008: GOSUB 188 : ROMT=X : GOSU 

MAY A.N.A.L.O.Q. Computing 



BP B 188:R0NB=X:G0SUB 188 : COLL=X : GOSUB 18 

e:COLR=X 
PU 5118 C=INTCCC0LR-C0LL}/8)+l:R=R0HB-R0M 

T+1 ! 5IZE=C»R : STARTrADR CDIR$) +48* CROWT- 

1)+INT {COLL/8 J 
UZ 5128 GOSUB 388 : 5ECT=PEEK C778] +256KPEEK 

1779) :BYTE=PEEKC1726) : 5HIFT=C0LL-IMT tC 

0LL/8J»8:IF SHIFT=8 THEN 5125 
QG 5122 FOR N=l TO SHIFT : A=U5R (ADR CROR$} , 

ADRCDIR$},7680) :NEXT N 
YP 5125 A=U5RCADRC0RA$}, ADR CDIR$}, PEEK C88 

J +256«PEEK (89) , 7688J 
LB 5138 NEXT TIMES 
AJ 5388 RETURN 

NT 6888 REM MICROPAINTER PUT 
OA 6881 TRAP 48888:G0T0 6588 
LY 6818 GOSUB 9882 : DIR$ CI) ="¥": DIR$ (76881 

="r' ! DIRS (2) =DIRS : 5TART=PEEK (88) +256*P 

EEK(89) :0FF=R0MT*48+LBYTE 
PJ 6815 LPRINT ROMT, ROMB, COLL, COLR, LBYTE, 

WIDE, C, OFF 
GZ 6828 FOR N=ROMT TO ROMB : A=USR (ADR (HOVE 

$) , START+OFF, ADR (DIR$) +OFF, WIDE) : OFF=0 

FF+48:NEXT N 
CZ 6838 BUF$="D:":BUF$(3)=FN$:TRAP 11288: 

OPEN tt3,8,8,BUF$:AD=ADR(DIR$) :HI=INT(A 

D/256) !L0=AD-256*HI 
FJ 6848 POKE 882,11:P0KE 884,L0:P0KE 885, 

HIrPOKE 888,8:P0KE 889, 38 : A=USR (ADR ("h 

IS8 U[0#")) 
AT 6858 RETURN 
RA 6588 GOSUB 6818 : PUT »3,e:PUT tt3,14:PUT 

tt3,14!PUT tt3,14:CL0SE »3:RETURN 
PA 7888 REM GR.8 PUT 

="551 CLIP NEWSROOM" THEN 13688 
WU 13518 ? "H":? "NOT A NEWSROOM DISK!";? 
"INSERT A NEWSR OOM CLIP ART DISK AND" 

:? "PRESS l!U<ll!»:i OR [Sa TO GO BACK." 
NE 13515 GOSUB 13888 

DN 13528 GET tt2,K:IF K=155 THEN 13588 
MR 13538 IF K=27 THEN POP : GOTO 1885 
CA 13548 GOTO 13528 
PE 13688 DIR$(1)=" ": DIRS (7688) =" "!DIRS( 

2)=DIR$!? "I?":P0SITI0N 8,18:? " ■!l^;1»«:i 

mssasiniSM"} 

CM 13618 SIZE=ASC(BUFS(28)) :C0UNT=8:S=l:N 

=32:G0SUB 28:P0KE 755,2:P0KE 752,1:A=8 

:GOTO 13418 

K(195);". CORRECT AND PRESS ANY KEY.": 

GET tt2,K 
ZW 11218 ON T8 GOTO 6888,7888 
XP 11388 GRAPHICS 8:? "FORMATTING ERROR. 

USE NEW DISK.": END 
OF 13888 SOUND 8, 288, 18, 18 : Azl-^l : SOUND 0, 

258,18,18:A=1A1:S0UND 8,8,8,e:F0R DELA 

Y=l TO 188: NEXT DELAY: RETURN 
JN 13818 ? "H":? "USE tt & t* THEN PRESS 

HanEn": RETURN 

GM 13828 GRAPHICS 8+16+32: POKE 718, 8: POKE 

7e9,14:RETURN 
KK 13838 GRAPHICS 8+32: POKE 718, 8: POKE 78 

9,14:RETURN 
YT 13188 REM DOS DIRECTORY 
BQ 13181 TRAP 11888:0PEN «1, 6, 8, "D :».»": P 

OKE 281,14:P0KE 675,8:P0KE 676,2:P0KE 

677,8:P0KE 678,8:P0KE 679,8:? "H" 
55 13118 INPUT ttl,FN$:IF FNS (6, 9) ="FREE" 

THEN 13138 
RK 13128 ? FNS(3,13);"K"; :GOTO 13118 
DP 13138 CLOSE ttl:TRAP 48888: POKE 783, 4:R 

ETURN 
JE 13388 REM PRINT SHOP DIRECTORY 
NZ 13381 ? "If":? :SECT=361; GOSUB 18888: IF 

MAY A.N.A.L.O.Q. Computing 



BUF$(1,15)="PRINT 5H0P:CLK!" THEN 133 
50 

13318 ? "H":? "NOT A PRINT SHOP DISK": 
? "INSERT P RINT S HOP GRAPHICS DISK AND 
":? "PRESS l!l^<ll;ri OR \33S TO GO BACK." 
13315 GOSUB 13888 

13320 GET n2,K:IF K=155 THEN 13380 
13330 IF K=27 THEN POP :GOTO 1885 
13348 GOTO 13328 

13358 DIR$(1)= DIR${76 88)=" ":DIR$( 

2)=DIR$: POSITION 8,10:? " ■;U=Mi<;MiIT-n 

[tUlLUI"; : COUNT=e : TRAP 40808 

13368 FOR SECT=362 TO 393:G05UB 10848 

13378 FOR N=0 TO 96 STEP 32 : FNS=BUF$ (N 

+20,N+28):IF FH$="X" OR FN$="X" THEN 1 

3388 

13375 GOTO 13408 



YP 



HR 



IR 
lU 



MY 
M 
WL 
AS 
GO 



XT 
RY 



BN 

LU 13388 DIR$(C0UNT»32+1,C0UNT«32+32)=BUF 

$(N+l,N+32) :C0UNT=C0UNT+1 

13408 NEXT N:NEXT SECT: POKE 755, 2: POKE 
755,2:P0KE 752,l:A=e 

13418 ? "IS":F0R N=8 TO 11:P0SITI0N 6,1 

+N:? DIRS(32»(N+A)+1,32»(N+A)+16);" " 

JDIRS{32»(N+12+A)+1,32»(N+12+A)+16) 

13428 NEXT N 

13438 POKE 783 ,4:? "UPRESS tt & t* FOR 
MORE TI TLES, KMS" : ? "TO GO BACK, & 

■ti^iiiira TO CHOOSE title." 

KL 13448 GET tt2,K 

YW 13458 IF K=27 THEN POKE 783,24:P0P : GO 

TO 1885 
SE 13468 IF K=155 THEN RETURN 
EM 13465 IF K=61 OR K=45 THEN 13480 
CO 13478 IF K<28 OR K>29 THEN 13448 
JD 13488 IF K=28 OR K=45 THEN IF COUNT>A+ 

24 THEN A=A+24:P0KE 783,24:G0T0 13410 
AM 13490 IF K=29 OR K=61 THEN IF A>8 THEN 

A=A-24:P0KE 7e3,24:G0T0 13418 
EG 13495 GOTO 13440 

MA 13588 REM DIRECTORY FOR NEWSROOM 
QB 13501 SECT=l:GOSUB 18e88:IF BUF$(1,17) 
XY 18828 POKE 779, INT (SECT/256) : POKE 778, 

SECT-INT (SECT/256) »256: POKE 769,1:A=US 

R (ADR (CALLS)) 
XH 18838 IF PEEK (771) =1 THEN RETURN 
ZC 18835 GRAPHICS 8:? "DISK ERROR NUMBER 

";PEEK(771) :END 
UB 10848 POKE 755, ( NOT (PEEK (755) ) )»2: GO 

TO 18888 
WC 18858 POKE 778, 87: GOTO 18018 
TK 11888 CLOSE ttl:IF PEEK (195) =136 THEN 1 

3130 
JS 11818 ? "ERROR "; PEEK (195) : STOP 
LA 11100 CLOSE «3:IF PEEK (195) =17 8 THEN ? 
"H":? "FILE NOT FOUND! PRESS fyVM'AJ'i " 

: GOSUB 13088: GET tt2,K:G0T0 1350 

§11118 ? "H": ? "ERROR "; PEEK (195);". P 
RESS r;VL'a:<^'J .": GOSUB 13000:GET tt2,K:G0 
TO 1358 
CG 11288 POP : GOSUB 13038:? "KERROR ":PEE 

5TAHT+7680, 7688) : NEXT N 
WE 8240 FOR N=0 TO 571 STEP 11 : A=USR (ADR ( 

MOVES), START+OFF, ADR (DIRS) +N, 11) 
GD 8258 0FF=0FF+40:NEXT N 
BL 8268 SECT=l:FOR N=l TO 572 STEP 126 :BU 

FS=DIRS(N,N+126) :BUF$(127)=CHRS(SECT+1 

) :BUFS(128)="¥" 

8270 GOSUB 10858 : SECT=SECT+1 : NEXT N 

8288 RETURN 

9888 REM NEWSROOM PUT 

9081 GOTO 9888 

9882 IF FR0M=3 THEN COLL=e : R0WT=8 : COLR 

=88:R0WB=52:G0T0 9838 
BL 9885 A=USR (ADR (MOVES), ADR (CURSORS), 153 

53 



CN 
BI 
QQ 
UK 
IX 



6, LEN (CURSORS)) : drU5R (1560 , , 0, 191, 319 

) 
U5 9010 D=4 : FLftG=0 :COLL=0 :R0WT=0:C0LR=319 

:R0WB::191 ; POKE 764,33:G05UB 500 
lA 9020 A = USR (1560, 0, 0,0,0) 
FB 9030 LBYTErIHT(C0LL/8) :RBYTE = INT (COLR/ 

8) :5HIFT = C0LL-LBYTE*8:C = C0LR-C0LL:5HIF 

T2=7-(C-INT(C/8)«8):WIDE=IHT(C/8)+l 
NT 9040 IF 5HIFT2=0 THEN 9060 
SW 9050 COLOR 0:F0R N=l TO SHIFT2:PL0T CO 

LR+N,HOWT :DRftWTO COLR+N , ROWB : NEXT N 
UK 9060 STORT = PEEK (88)+256*PEEK(89) :IF SH 

IFT=0 THEN 9075 
ZK 9070 FOR N'l TO SHIFT : ft=U5R (ADR (ROLS) , 

5TART+7680, 7680) :NEKT N 
BW 9075 RETURN 
AY 9080 G05UB 9002 : 5TART=5TART+INT (COLL/8 

)+R0WT«40 :R=R0HB-R0WT+l:5IZE=R»(INT(C/ 

8)+l) 
TR 9090 DIRS (1)="¥":DIR$(7680) ="*":DIR$(2 

)=DIR$ 
LJ 9100 G05UB 400 : 5IZE=PEEK (205) +256KPEEK 

(206)-ADR (DIR$) 
EM 9110 BUf $ (1)="¥":BUF$(129)="¥":BUF$(2) 

=BUF$:BUF$(1, 17)="55I CLIP NEW5R00M":B 

UF$(26,28)="H-h" 
EP 9120 BUF$(32,LEN(FN$)+32)=FN$:5ECT=l:G 

05UB 10050 
HU 9130 BUF$(1)="¥"! BUF$(129)="¥":BUF$(2) 

= BUF$:BUF$(1)=CHR$(60) :BUFS(2) =CHR$ (0) 

;BUF$(3)=CHR$(0) :BUFS(4,6)="UXI" 
KJ 9140 5ECT=13:G0SUB 10050 : 5ECT=60 : BUF$ ( 

1)="¥":BUF$(129)="¥":BUF$(2)=BUF$ 
QI> 9145 DUF$ (1)-CHR$ (ROHT + 1) :BUF$(2) =CHR$ 

(R0WB + 1):IF FR0M=3 THEN C0LL = 8 1 C0LR = 96 
MR 9150 BUF$ (3)=CHR$(C0LL) :BUF$(4) =CHR$(C 

OLR) :BUF$ (5)=DIR$:G05UB 10050 ; IF 5IZE< 

125 THEN 9200 
QD 9160 FOR N=125 TO SIZE STEP 128lBUF$(l 

)="¥":BUF$(129)="¥":BUF$(2)=BUF$:BUF$= 

DIR$(N) :SECT=5ECT+1:G0SUB 10050 
HK 9170 NEKT N 
AL 9200 RETURN 
NK 10000 BUF$(1)="":BUF$(129)="":BUF$(2)= 

BUF$:P0KE 770,82 
EL 10010 A = ADR(BUFS) :POKE 773 , INT (A/256) : 

POKE 772, A-INT(A/256)«256 
IL 7001 GOSUB 6010:CL05E tt3:RETURN 
CM 8000 REM PRINT5H0P PUT 
YN 8001 A = USR(A[>R(MOgE$) , ADR(CURSORS) ,153 

6,LEN(CURS0R$)) : A=U5R (156 , 70 , 116,122, 

204) 
Za 8010 DrO: FLAG=0:C0LL=116:R0WTr70 :POKE 

764,33:G0SUB 500 
HZ 8020 A=U5R(1560,0,0, 0,0) 
MK 8201 BUF$="PRINT SHOP ; CLK ! J C" : BUF$ (18) 

= ■'¥": BUF$ (129)="¥":BUFS(19)=BUF$(18) :B 

UF$ (33 33) ="II" 
UP 8202 BUF$ (78,82) =">lllig" 
DP 8210 SECT=361:G0SUB 10050 
KB 8220 BUFS=FN$:BUF$(LEN(BUF$)+1)=" 

I I 

SZ 8230 BUFS(17,22)="|-¥¥xe I":BUF$(23)="¥" 
:BUF$(129)="¥":BUF$(24)=BUF$(23) :5ECT= 
362:G0SUB 10050 

TK 8232 DIR$ (l)="¥"iDIR$(7680)="¥":DIRS(2 
)=DIR$ 

DK 8235 START=PEEK(88)+256*PEEK(89) :I=INT 
(COLL/8) :0FF=R0HT«40+I:SHIFT=C0LL-8»I: 
IF SHIFT:=0 THEN 8240 

AM 8236 FOR N = l TO SHIFT ; A = U5R (ADR (ROL$) , 



LISTING 2: BASIC 



5A 
;GZ 



fso 

QN 
PE 

VH 
TN 



(AS 



jIH 
'OL 



AB 
AE 
GL 
FR 
5C 

isG 
HK 
MM 
JP 
KY 

jVL 

iDA 
AH 

,HR 
MR 
UR 



5 LINE::100 

10 FOR N=i TO 1092 STEP 26:ST=0:F0R S= 

1 TO 26!READ D : ST=ST+D ! T=T+D : NEKT S 

20 READ K:IF XOST THEN ? "ERROR IN LI 

NE tt";LINE:STOP 

30 ? "LINE ";LINE;" OK!" 

40 LINE=LINE+10:NEKT N 

50 IF T<>li2481 THEN ? "CHECKSUM ERROR 

"■.END 

60 ? "[aiElNSERT FORMATTED DISK « PRESS 

ANY KEY":P0KE 764,255 
65 IF PEEK(764)=255 THEN 65 



70 



MRITING FILE "DsTEMP.LST" 



"; :0 



PEN ttl,8,0,"D:TEMP.LST":REST0RE : POKE 

764,255 

80 FOR N=l TO 1092 STEP 26 : FOR K=l TO 

26:READ D:PUT ttl,D:NEKT K : READ D:POKE 

755, ( NOT (PEEK(755)))»2:NEXT N 

90 CLOSE Ol:? :? :? "D0NE":END 

100 DATA 57,50,49,32,67,48,77,80,36,61 

,34,104,104,133, 204,141,230,6,104,133, 

203,141,229,6,104,104,2 537 

110 DATA 141,233,6,141,235,6,104,141,2 

32,6,104,141, 231,6,104, 133,20 6,104,133 

,205,160,0,140,237,6,140,3295 

120 DATA 236,6,177,203,141,234,6,24,16 

5,203,105,40,133,203,165,204,105,0,133 

,204,206,235,6,208,24,173,3539 

130 DATA 233,6,141,235,6,238,229,6,208 

,3,238,230,6,34,155,57,50,50,32,67,48, 

77,80,36,40,56,2561 

140 DATA 49,41,61,34,173,229,6,133,203 

,173,230,6,133,204,173,231,6,208,17,17 

3,232,6,208,9,173,237,3348 

150 DATA 6,208,3,32,199,6,96,206,232,6 

,206,231,6,177,203,170,173,237,6,208,3 

8,173,234,6,208,6,3276 

160 DATA 238,237,6,75,161,6,236,234,6, 

240,11,173,234,6,145,205,32,192,6,76,4 

3,6,169,1,141,236,3116 

170 DATA 6,141,237,6,76,43,34,155,57,5 

0,51,32,67,48,77,80,36,40,49,54,49,41, 

61,34,6,238,1768 

180 DATA 236,6,208,15,206,236,6,32,199 

,6, 238, 236, 6, 140, 237, 6, 76, 115, 6, 236, 23 

4,6,240,3,32,199,3160 

190 DATA 6,76,43,6,230,205,208,2,230,2 

06,96,169,0,145,205,32,192,6,173,236,6 

,145,205,32,192,6,3052 

200 DATA 173,234,6,145,205,32,192,6,14 

0,237, 6, 140, 236, 6, 96, 0,0, 0,0, 0,0, 0,0,0 

,0,34,1888 

210 DATA 155,57,50,52,32,85,78,67,79,7 

7,80,36,61,34,104,104,133,206,141,186, 

6,104,133,205,141,185,2591 

220 DATA 6,104,104,141,189,6,141,191,6 

,104, 141, 188, 6, 104, 141, 187, 6, 104, 104,1 
41.19 0.6 .104.133,204.104,2855 

230 DATA 133,203,160,0,140,184,6,173,1 

84,6,240,1,96,32,83,6,138,240,6,32,113 

,6,34,155,57,50,2478 

240 DATA 53,32,85,78,67,79,77,80,36,40 

,54,49,41,61,34,76,45,6,32,83,6,142,19 

2,6,32,83,1569 

250 DATA 6,32,113,6,206,192,6,208,248, 

76,45,6,172,190,6,177,2 03,72,238,190,6 

,16,16,169,0,141,2740 

260 DATA 190,6,238,10,3,208,3,238,11,3 
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,32, 83, 228, 104, 170, 96, 173, 187, 6, 208, 12 

,173,188,34,155,57,2815 
DH 270 DATA 50,54,32,85,78,67,79,77,80,36 

,40, 49, 50, 49, 41, 61, 34, 6, 208, 4, 238, 184, 

6,96,206,188,2098 
IB 280 DATA 6,206,187,6,160,0,138,145,205 

,206, 191, 6, 208, 27, 238, 185, 6, 208, 3, 238, 

186,6,173,185,6,133,3258 
OP 290 DATA 205,173,186,6,133,206,173,189 

,6,141,191,6,76,183,6,24,165,205,105,4 

0, 133, 205, 165, 206, 105, 0, 3233 
P5 300 DATA 133,206,96,0,0,0,0,0,0,0,0,0, 

0,34, 155, 57, 51, 48, 32, 67, 65, 76, 76, 36, 61 

,34,1227 
NO 310 DATA 104,32,83,228,96,34,155,57,52 

,48, 32, 77, 79, 86, 69, 36, 61, 34, 104, 104, 13 

3,204,104,133,203,104,2452 
KL 320 DATA 133,206,104,133,205,104,133,2 

08,104,133,207,160,0,165,207,208,7,165 

,208,208,1,96,198,208,198,207,3906 
PH 330 DATA 177,203,145,205,200,208,4,230 

,204,230,206,144,230,176,228,34,155,57 

,53,48,32,79,82,65,36,61,3492 
RJ 340 DATA 34,104,104,133,204,104,133,20 

3,104,133,206,104,133,205,104,133,208, 

104, 133, 207, 160, 0,165, 207, 208, 7, 3540 
DU 350 DATA 165,208,208,1,96,198,208,198, 

207, 177, 205, 17, 203, 145, 205, 200, 208, 4, 2 

30,204,230,206,144,228,176,226,4497 
NY 360 DATA 34,155,57,54,48,32,67,85,82,8 

3, 79, 82, 36, 61, 34, 0,0, 0,0, 0,0, 0,0, 0,0,0 

,989 
IV 370 DATA 0,0,0,0,0,128,64,32,16,8,4,2, 

1,104,104,104,141,6,6,104,141,8,6,104, 

141,7,1231 
MA 380 DATA 6,104,104,141,9,6,104,141,11, 

6,104,141,10,6,169,0,141,12,6,32,80,6, 

32,80,6,32,1489 
SY 390 DATA 80,6,32,80,6,162,5,189,6,6,32 

,0,6,202,16,247,96,174,12,6,189,0,6,32 

,179,6,1775 
WS 400 DATA 174,34,155,57,54,49,32,67,85, 

82, 83, 79, 82, 36, 40, 57, 49, 41, 61, 34, 12, 6, 

232,189,0,6,1796 
5R 410 DATA 141,14,6,232,189,0,6,141,15,6 

,232,142,12,6,32,114,6,96,173,14,6,41, 

7,170,189,16,2006 
TQ 420 DATA 6,141,13,6,162,3,78,15,6,110, 

14,6,202,208,247,24,173,14,6,101,88,13 

3,205,165,89,105,2320 
TW 430 DATA 0,133,206,160,0,162,192,177,2 

05,77,13,6,14 5,205,24,165,205,105,40,1 

33,205, 165, 206, 105, 0,133, 3167 
Bl 440 DATA 206,202,208,233,96,141,34,155 

,57,54,50,32,67,85,82,83,79,82,36,40,4 

9,56,49,41,61,34,2312 
ZZ 450 DATA 14,6,169,40,141,15,6,162,8,16 

9,0,133,203,133,204,10,38,203,14,15,6, 

144,8,24,109,14,1988 
IG 460 DATA 6,144,2,230,203,202,208,237,2 

4, 101, 88, 133, 205, 165, 203, 101, 89, 133, 20 

6, 169, 32, 141, 13, 6, 160, 39, 3240 
HM 470 DATA 173,13,6,81,205,145,205,136,1 

6,246,96,34,155,57,55,48,32,82,79,82,3 

6,61,34,104,104,133,2418 
ET 480 DATA 204,104,133,203,104,133,206,1 

04,133,205,160,0,24,165,205,208,7,165, 

206, 208, 1,96, 198, 206, 198, 205, 3781 
QH 490 DATA 177,203,106,145,203,200,208,2 

,230,204,144,231,176,229,34,58,82,79,7 

6, 36, 61, 34, 104, 104, 133, 204, 3463 
FM 500 DATA 104,133,203,104,133,206,104,1 

33,205, 160, 0,24, 165, 205, 208, 7, 165, 206, 
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208,1, 96, 198, 206, 198, 205, 177, 3754 
MT 510 DATA 203,42,145,203,152,208,2,198, 
204, 136, 144, 230, 176, 228, 34, 155, 0,0, 0,0 
,0,0,0,0,0,0, 2460 



LISTING 3: BASIC 



MD 10 G05UB 1000 

AM 20 FOR R=ROWT TO ROWB : FOR 5=LC TO S+WI 

DE:GET tt3,X:P0KE S,X;NEXT 5:LC=LC+40;N 

EXT R 
ID 30 IF C0LR=RBYTE»8+7 THEN 50 
BB 40 FOR N=COLR TO RBYTE*8+7 : PLOT N,R0HT 

:DRAWT0 N,R0WB:NEXT N 
MC 50 IF FLAG THEN PLOT , ROWT : DR AUTO 0,R 

0MB 
KW 53 LC=5TART:F0R N=ROWT TO R0WB:A=U5RCA 

DR{E0R$),LC,MIDE+1) :LC=LC+40:NEXT N 
JE 55 GRAPHICS 8+32:P0KE 710,0:P0KE 709,1 

4:? "5AUING" 
ZH 60 CLOSE tt3:0PEN O3,8,0,FN2$ 
JP 70 POKE 882,ll:P0KE 884 , PEEK (88) : POKE 

885, PEEKC89) : POKE 888,0:P0KE 889,30:A= 

U5R CADR C'hHO UQ*") ) 
MK 80 CLOSE ttZ 
M5 90 GRAPHICS 2 + 16 : POSITION 8,6:? O6;"D0 

NE" 
LG 100 GOTO 100 
UI 999 STOP 

DY 1010 DIM FN1$ (15) , FN2$ (15) , CALL$(5) 
FJ 1020 ? CHR$ (125) iPOSITION 2,10:? "USE 

DEVICE ID AND EXTENTERS .": POSITION 2,1 

:? "ENTER LOAD FILEN AME :";: INPUT FN1$ 
AK 1030 ? :? "ENTER SAVE FILEN AME ;";: INPU 

T FN2$ 
IH 1040 D = 47:IF FN1$ (3 , 4) ="BN" OR FNl5(4, 

5)r"BN" THEN FLAG=1:D331 
BM 1050 OPEN «3,4,0,FN1$ 
YH 1060 FOR N=l TO 8;GET tt3,X:NEXT N 
RK 1070 GET H3,R0MT:GET «3,R0MB:GET tt3,C0 

LL:GET tt3,C0LR:IF FLAG THEN C0LL=i:C0L 

R = 239 
GJ 1080 FOR N = l TO D ! GET a3,X:NEXT N 
MI 1090 LBYTE = INT(C0LL/8) :RBYTE = INT (COLR/ 

8) :MIDE=RBYTE-LBYTE 
FC 1100 GRAPHICS 8+16:P0KE 7iO,0:POKE 709 

,14: COLOR l:START=PEEK(88) +25 6KPEEK (89 

) +4 0*R0HT+LBYTE :LC=START 
fl,E 1110 RETURN 
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DL 60 ? "[ZtElNSERT FORMATTED DISK & PRESS 
ANY KEY":POKE 764,255 

'YH 65 IF PEEK (764)^255 THEN 65 

TN 70 ? :? " i;i:»**<: H »7T^CrT¥T?rr^Jt<^nB "; ;0 

PEN ttl, 8, 0, "D : TEMP . LSI" ; RESTORE : POKE 
P 764,255 
IhN 80 FOR N=l TO 92:READ D:PUT 01,D:NEXT 

I ** 

EIH 90 CLOSE ttl:? :? :? "DONE"; END 

OP 100 DATA 49,48,48,48,32,68,73,77,32,59 

,79,82,36,40,52,52,41,58,69,79,82,36,6 

1,34,104,104 

YZ 110 DATA 133,204,104,133,203,104,133,2 

06, 104, 133, 205, 160,0, 24, 155, 205, 208, 7, 

16 5,206,208,1,96,198,206,19 8 

GL 120 DATA 205,177,203,73,32,145,203,200 

I ,208, 2, 230, 204, 144, 230, 176, 228, 34, 58, 6 

' 9,79,82,36,40,51,51,44 

ET 130 DATA 51,51,41,61,67,72,82,36,40,50 

,53,53,41,155 d 



continued from page 15 

You can either blow into the mouthpiece 
for dynamic control over volume and tone or 
set a switch to use the keys like a keyboard 
with on/off operation. The DH-100 is battery 
operated, has a two-octave chromatic scale, 
contains its own built-in speaker, and has a 
MIDI out connection. 

The Casio DH-100 Digital Horn is both 
easy to learn and fun to play. You guessed it: 
I bought one. 

You always find the unusual at CES and 
Sanyo had it. Highlighting their activity in 
solar energy, Sanyo displayed a solar-powered 
golf cart. Since the vehicle does not run on 
normal fuel it is very efficient and pollution 
free. The thing looked more like a vehicle 
from Blade Runner than what you might see 
roaming the links on a Saturday morning. 

Another unusual product seen was the 
XPRES'R electronic-reader board. This 
2-inch by 12-inch electronic message display 
is designed to be mounted in the rear win- 
dow of a car The unit is remotely controlled 
by a handset resembling a cellular telephone 
with an illuminated LCD screen. The user 
can select from any of the 198 built-in mes- 
sages or create up to 64 custom messages. 
The built-in messages run the gamut from 
emergency calls for help, safety, traffic tools 
to humor and animation. 

The XPRES'R can also be used outside of 
the car with the optional AC adapter Mes- 




sages on the electronic display can be set to 
scroll, blink, pop-up or drop down, and the 
messages stay in memory even if the power 
is removed from the unit. The XPRES'R will 
be available in auto-parts stores by the time 
you read this. Price is yet to be announced. 

At the last CES I saw a product called the 
Mail-Call, a device that used a solar-powered 
transmitter to alert you by means of an audi- 
ble noise and flashing light that your mail had 
arrived. The product is meant to overcome 
the problem of making trips to your mail box 
to find that the mail has not yet arrived. 

At this show I saw the Letter Sledder Don't 
laugh— this product extends a curbside mail- 
box (30 inches) to your car window by re- 



mote control. Yes, you can avoid the hassle 
of having to get out of your car to get the mail 
with the Letter Sledder. The originator, Todd 
Powers, says the idea came to him when he 
noticed his wife making ruts in the lawn while 
trying to retrieve mail from her car She kept 
banging the side mirror and car doui into the 
mail so he thought up the solution. 

If you want a Letter Sledder, it will cost 
you $200 for an AC model or $250 for a 
solar-powered version. Oh, yes, the post and 
mail box cost extra. It can be ordered from 
Todd Powers Associates. I guess technology 
is not always the answer to every problem. 
Okay, you can laugh now. Todd, ever think 
you might have too much free time on your 
hands? 

It would be hard to imagine what life would 
be like without our modem technology. And 
we all get much satisfaction from the audio, 
video, entertainment and personal electron- 
ics products that technology has made avail- 
able to us. The Consumer Electronics Show 
is where all the "new stuff is shown before 
it becomes available to the consumer 

My definition of "neat things" has changed 
since I was a youngster Now neat things 
are . . .well . . .what I see each year at CES. 
I'm fortunate both to be able to see all of these 
exciting products firsthand and to later be able 
to afford some of them. I'm also fortunate that 
I can share these neat things with you. 



Arthur Leyenberger is a human factors psy- 
chologist and freelance writer living in New 
Jersey. Consumer electronics is his life. 

Companies Mentioned 
in This Article 

Brother International 
8 Corporate Place 
Piscataway, NJ 08854 
(201) 981-0300 

Canon, Inc. 
One Canon Plaza 
Lake Success, NY 11042 
(516) 488-6700 

Cobra Electronics Group 
Dynascan Corp. 
6500 West Cortland Street 
Chicago, IL 60635 
(312) 889-8870 

Hewlett-Packard Company 
Inquiries Manager 
1000 N.E. Circle Blvd. 
Corvallis, OR 97330 
(503) 757-2000 



Mitsubishi International Corporation 
Communication Equipment Sales Division 
879 Supreme Drive 
Bensenville, IL 60106 
(312) 860-4200 

NEC America, Inc. 
Mobile Radio Division 
4910 W. Rosecrans Ave. 
Hawthorne, CA 90250 
(213) 973-2071 

Opsin Inc. 

18550 Firlands Way N. 
Seattle, WA 98133 
(206) 542-7871 

Polyglot 

RO. Box 521603 
Miami, FL 33152 
(800) 634-4692 

Reflection Technology 

171 Third Street 

Cambridge, MA 02141 i 

(617) 890-5905 



Sharp Electronics Corp. 
Sharp Plaza 
Mahwah, NJ 07430 
(201) 529-8200 

Sony Corporation of America 
9 West 57th Street 
New York, NY 10019 
(212) 418-9427 

Todd Powers Associates, Inc. 
825 Harper Drive 
Algonquin, IL 60102 

Toshiba America, Inc. 
82 Totowa Rd. 
Wayne, NJ 07470 
(201) 628-8000 

XPRES Communications, Inc. 
755-601 West broadway 
Vancouver, B.C. 
Canada V5Z 4C2 
(604) 873-1749 



MAY A.N.A.L.a.B. Computing 



Is DN DEAD? 



According to some sources, Digital Audio 
Tape (DAT) is tiie most eagerly awaited au- 
dio product since the compact disc. Being 
able to make very high-quality recordings has 
excited consumers since the technology was 
introduced a couple of years ago. 

Unfortunately, the wait for DAT in the U.S. 
is not over yet. 

DAT recorders were evident at almost ev- 
ery major audio and video electronics com- 
pany booth. However, the recorders were not 
so prominently displayed or hyped as in 
previous shows. One reason is that consumers 
still can't purchase DAT recorders on the 
open U.S. market because manufacturers 
have been scared off by the threatened law- 
suit from the Recording Industry Association 
of America (RIAA). 

The recording industry is concerned that 
since DAT can make near-perfect recordings 
of CDs, there will be large-scale piracy of 
CDs and millions of dollars in lost revenue. 
The hardware manufacturers, mostly 



Japanese, counter with an analogy to the LP 
and cassette markets. They say, DAT is to the 
CD as the cassette is to the LP: People make 
copies for their own use and that's fine. 

If you look hard enough and are willing to 
pay premium prices, you can buy "gray mar- 
ket" DAT decks that have been imported from 
Japan. However, prices range between 
$1-2,000 dollars, at least three times the price 
level that they would be at if DAT was as 
common a consumer product as the CD play- 
er. Several companies have introduced DAT 
players for car use, but there are few pre- 
recorded DAT tapes, and the inabihty to make 
your own recordings limits the usefulness of 
a car DAT player. 

Another threat of "premature DAT death" 
comes from the emerging recordable, erasa- 
ble compact disc technology that will arrive 
in the early 1990s. Several companies are now 
working on an erasable CD which promises 
the ability to make the same high-quality 
recordings that can be done with DAT. 



Radio Shack's parent company, Tandy Cor- 
poration, is probably the most widely known 
manufacturer doing research in recordable 
CD technology. Their system, announced last 
year, is called THOR-CD (Tandy High- 
Intensity Optical Recording) and is said to al- 
low the user to re-record CDs up to 40 times. 
Further, once recorded, the blue THOR-CD 
discs are completely compatible and playa- 
ble on any current CD player. 

Even if DAT becomes stillborn in the U.S. 
market, the recordable CD products will 
probably face the same reaction from the 
RIAA. Whether it's DAT, THOR or 
whatever, the manufacturers and recording 
industry need to resolve the issue and many 
people feel that it should be resolved in the 
courts by having a hardware company in- 
troduce a DAT (or recordable CD) product 
and let the RIAA sue them. As it stands now, 
consumers are not benefiting from a technol- 
ogy that can significantly improve the quali- 
ty of their recorded music. 
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It is true that still-video photography is a 
combination of standard still-photography 
and video. As such, the new technology con- 
tains some of the advantages and disadvan- 
tages of each technology. One of the major 
obstacles to the consumer success of still- 
video photography lies with how the user will 
get printed photos. Both Sony and Canon 
offer products that will print a video image 



but the cost of the machines is high (about 
$2-4,000) and the quality is poor. 

Another (perhaps the only viable) alterna- 
tive is to have photo finishers like your friend- 
ly neighborhood Fotomat provide a 
video-printing service. Professional video 
printers that cost upwards of $15,000 are af- 
fordable to commercial businesses. It doesn't 
seem too unlikely that you'll drop off your 



2-inch still-video disks at the convenience 
store in the morning and pick up your prints 
on the way home from work. 

As likely as this sounds, the Catch-22 is 
that photo finishers will be unwilling to pro- 
vide such a service until there is sufficient 
demand from consumers. While at the same 
time, consumers may not embrace the new 
technology until they have some place to get 
a hard copy of their images. 



What Is The CEDus 



CEBus is not a product but a voluntary 
standard which is close to completion. 
Manufacturers will follow the CEBus stan- 
dard when they build and supply you with 
home-automation products allowing products 
from different manufacturers to work 



together. Each product will be smart enough 
to pick up messages from other products and 
carry out their instructions. 

CEBus-equipped products will be able to 
provide a variety of functions. For example, 
interconnected appliances like a hot water 
heater and dishwasher will be able to com- 



municate with each other so that the dish- 
washer will not turn on until the water heater 
sends a message saying that the water is hot 
enough to wash the dishes. Other examples 
include the ability to preset your lights, TV 
and furnace to turn on and off at times you 
specify. [R 
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by Clayton IVa/num 



Programming a computer can be a reward- 
ing hobby. It puts into your hands the ability 
to make your machine do what you want. 
Further, programming is a good mental ex- 
ercise; getting a program to run properly is 
a lot like trying to complete the Sunday cross- 
word puzzle— with the difference that you 
have something to show for your efforts, 
something you can use. 

And, contrary to what you may have heard, 
programming a computer is not that difficult. 
It can be difficult. It all depends upon the 
level of expertise you wish to obtain. Simple 
programs can be written after only an hour 
or two of study. Of course, programming a 
fast-action arcade game may not be possible 
without years of programming experience. 

For the most part, though, you can quick- 
ly develop the skills required to write useful 
programs. This column is dedicated to get- 
ting those of you with no programming ex- 
perience up to speed as fast as possible. We'll 
cover all the topics necessary to make you 
into a proficient BASIC programmer, start- 
ing at the very beginning and working our 
way through to the more difficult topics only 
when you are ready for them. 



What Is a Program? 

To write a program we first have to under- 
stand what it is. Those of you who have just 
purchased your first computer (and even 
some of you who have owned a computer for 
a while) may have a lot of misconceptions 
about what a program is. You probably think 
of a program as sheet after sheet of high-tech 
hieroglyphics that can make sense only to 
"techies." The fact is that a program is noth- 
ing more than a list of instructions. These in- 
structions are placed in the order necessary 
to accomplish a particular task. A program, 
in fact, is not unlike a recipe. 

Think about the steps you must complete 
to bake a cake. Now imagine that you must 
tell someone else how to bake that cake. You 
might tell them to go to the pantry and get 
out the cake mix, place the cake mix into the 
bowl with the other ingredients, mix the in- 
gredients, pour the batter into a pan, then 
place the pan in the oven which has been pre- 
heated to the correct temperature. 

A computer program is much the same, but 
instead of telling someone how to bake a 
cake, you're telling the machine how to per- 



form whatever task it is that you want it to 
do. For example, let's say that we want the 
computer to take two numbers from the user, 
total them and then print the results. The steps 
we need to accomplish might look like this: 

STEP 1: CLEAR THE SCREEN 
STEP 2: ASK FOR THE FIRST 

NUMBER 
STEP 3: GET THE FIRST NUMBER 
STEP 4: ASK FOR THE SECOND 

NUMBER 
STEP 5: GET THE SECOND 

NUMBER 
STEP 6: ADD THE NUMBERS 
STEP 7: PRINT THE TOTAL 

This all looks very logical, right? There's 
nothing "high-tech" about any of the above 
instructions. All we have to do to convert the 
preceding list of instructions into a computer 
program is to write them in a way that the 
computer can understand. For example, we 
can't tell the computer "Clear the screen" be- 
cause it doesn't understand our language. We 
need to use a language that it does under- 
stand, and one of those languages is BASIC. 
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In BASIC, one of the instructions to clear the 
screen is "GRAPHICS 0." Here is the list of 
instructions translated into BASIC: 



18 GRAPHICS 8 

28 PRINT "ENTER THE FIRST NUMBER" 

38 INPUT NUMBERl 

48 PRINT "ENTER THE SECOND NUMBER" 

58 INPUT NUMBER2 

68 T0TAL=NUMBERJL + NUMBER2 

76 PRINT TOTAL 



If you type the above program into your 
computer (go ahead and do it, if you like) and 
then run it, you would get the following on 
your screen (items typed by the user are 
shown in italics): 

ENTER THE FIRST NUMBER 

712 

ENTER THE SECOND NUMBER 

V3 

25 

As you can see, a computer program is not 
very different from any other set of instruc- 
tions. In fact, even without knowing BASIC, 
you can generally see what is going on in the 
program. It's just a matter of translating each 
step into the language the computer can un- 
derstand. Of course, in order to do that trans- 
lation, you have to have a "dictionary" of 
words that the computer knows. Each of the 
words in the BASIC language is called a 
"keyword" or a "reserved word," and a list 
of them is shown in Table 1. Take a look at 
this list, but don't worry if you can't figure 
out what some of the words mean. We'll get 
to them all sooner or later. 



ABS 


GOTO 


PUT 


ADR 


GRAPHICS 


RAD 


AND 


IF 


READ 


ASC 


INPUT 


REM 


ATN 


INT 


RESTORE 


BYE 


LEN 


RETURN 


CLOAD 


LET 


RND 


CHR$ 


LIST 


RUN 


CLOG 


LOAD 


SAVE 


CLOSE 


LOCATE 


SETCOLOR 


CLR 


LOG 


SGN 


COLOR 


LPRINT 


SIN 


COM 


NEW 


SOUND 


CONT 


NEXT 


SQR 


COS 


NOT 


STATUS 


CSAVE 


NOTE 


STEP 



DATA 


ON 


STICK 


DEG 


OPEN 


STRIG 


DIM 


OR 


STOP 


DOS 


PADDLE 


STR$ 


DRAWTO 


PEEK 


THEN 


END 


PLOT 


TO 


ENTER 


POINT 


TRAP 


EXP 


POKE 


USR 


FOR 


POP 


VAL 


FRE 


POSITION 


XIO 


GET 


PRINT 




GOSUB 


PTRIG 





Table I. 

The list of words in Table 1 may seem 
large, but consider that they're all you need 
to do practically anything you want with your 
computer. That's pretty amazing, don't you 
think? 



Three Modes 



If you own an XL or XE computer, the 
BASIC language is built into your machine. 
To access BASIC, all you have to do is turn 
on the machine. You should then see a blue 
screen with the word "READY" displayed. 
READY means that BASIC is standing by, 
ready to process your next instruction. The 
only way to get rid of BASIC is to hold down 
the Option key when turning on the 
computer. 

If you own an older model of Atari— a 400 
or 800— BASIC comes on a cartridge. To ac- 
cess BASIC, you must plug the cartridge into 
the machine before you turn it on. 

The BASIC language operates in three 
modes: immediate, deferred and execution. 
You are using the immediate mode whenever 
you type an instruction that isn't prefaced with 
a line number. For example, type the follow- 
ing line and press Return: 

PRINT "HI THERE!" 

As soon as you pressed Return, the com- 
puter performed your instruction, printing the 
words "HI THERE!" on the screen. You are 
in the deferred mode whenever you type in- 
structions that begin with a line number. The 
number tells BASIC that the instruction is not 
to be performed right away, but is instead to 
be stored in the computer's memory for later 
use. Type in the line above again, but this 
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time put a line number in front of it like this: 
10 PRINT "HI THERE!" 

When you press Return this time, nothing 
happens on the screen. The computer has 
stored the line in memory and is waiting for 
you to tell it when you want it performed. 

Whenever you type the BASIC keyword 
"RUN," the machine enters the execution 
mode; that is, it begins to perform whatever 
instructions you may have previously stored 
in the machine's memory. T^pe RUN now 
and see what happens. The words "HI 
THERE!" should appear on your screen as 
the computer performs the instruction you en- 
tered previously in the deferred mode. 

Line Numbers 

What's all this talk about line numbers? 
Remember that a program is a series of in- 
structions that must be performed in a cer- 
tain order. The computer knows the general 
order of the instructions by the line numbers 
included with each instruction. That's not to 
say that every BASIC program is performed 
starting with the first line and working its way 
one line at a time to the last line. This isn't 
true because there are ways to change the or- 
der in which the instructions are executed. 
But the line numbers do organize the way the 
program will work in a general way. One 
thing is for sure: the first line of your pro- 
gram will always be the first line executed. 

Line numbers can be any number from 
to 32727. As you write your program, though, 
you'll want to leave "space" between each 
line number so that you can insert lines be- 
tween existing ones. For example, take a look 
at this program: 



e GRAPHICS 8 

1 PRINT "ENTER FIRST NUMBER" 

2 PRINT "ENTER SECOND NUMBER" 

3 INPUT NUMBER2 

4 T0TAL=NUMBERI+NUMBER2 

5 PRINT TOTAL 



Do you see something wrong here? If you 
compare this program to the similar one 
above, you'll see that we forgot the line "IN- 
PUT NUMBERl." Because that line is miss- 
ing, the program won't run properly. How can 
we fix it? Outside of manually changing the 
numbers for each line, we can't. But suppose 

33 



we had written the program without usin^ 
consecutive numbers, like this: 



e GRAPHICS e 

18 PRIMT "ENTER FIRST HUMBER" 

20 PRINT "ENTER SECOND NUMBER" 

38 INPUT NUMBER2 

48 T0TAL=NUM6ER1+NUMBER2 

58 PRINT TOTAL 



To fix the program, now all we have to do 
is type the following line: 

15 INPUT NUMBERl 

Because of the line numbers, the computer 
knows exactly where this line belongs in the 
program, and it'll put it there for us, giving 
us this program: 



8 GRAPHICS 8 

18 PRINT "ENTER FIRST NUMBER" 

15 INPUT NUMBERl 

28 PRINT "ENTER SECOND NUMBER" 

38 INPUT NUMBER2 

48 T0TAL=NUMBER1+NUMBER2 

58 PRINT TOTAL 



You can see now how important it is to 
number a program in such a way as to allow 
changes later on. Almost all the programs 
you'll write will require some changes and 
polishing to get them to do exactly what you 
want. 

Constants and Variables 

Before we can understand exactly what's 
going on in our program, we have to learn 
about two types of data: constants and varia- 
bles. A constant is a piece of program data 
that never changes. An example from our 
program is the that follows the command 
GRAPHICS and the words "ENTER FIRST 
NUMBER" that follow our first PRINT state- 
ment. The former is a "numerical" constant, 
and the latter is a "string" constant. (A string 
is defined as a series of characters.) Nothing 
we can do in the program can change these 
constants; the only way to change them is to 
edit the program itself. 

A variable is a piece of data that can be 
changed within our program. If you've taken 
algebra, you've already had some experience 
with variables. Basically (no pun intended), 
they are holding places for data that are iden- 
tified by a name. For example, in line 15 of 
our example program we have a variable 
named NUMBERl. You can think of 
NUMBERl as a box with enough space to 
hold a number— any number at all. In this 
case, NUMBERl will hold whatever num- 
ber the user types in (you'll see why later). 
We don't know in advance what that number 
might be, and we don't care. NUMBERl is 



a numerical variable. There are string varia- 
bles too, but we won't talk about them just 
yet. 

What's Goin^ On? 

Now that we know a little about how BA- 
SIC works, let's take a look at the program 
we just wrote and see what it is doing. 

Line in the program tells the computer 
to go into graphics mode 0. The Atari com- 
puters have many different graphics modes, 
each with its own number, but we won't talk 
about many of them for a while yet. It's 
enough to know that Graphics is Atari's 
standard "text" mode; that is, the mode that 
is used strictly for printing words or num- 
bers on the screen, rather than drawings. 
When you first turn on your machine, it au- 
tomatically comes up in graphics mode 0; in 
fact, when we ran the above program, we 
were already in graphics 0. So why did we 
have to instruct the computer to go to that 
mode again? Actually, we didn't. The pro- 
gram would have run fine without that line, 
with the exception that the screen would not 
have cleared first. That's one of the side ef- 
fects of the GRAPHICS command. It always 
clears the screen. 

Line 10 in the program prints our first 
"prompt." When programming you have to 
remember to tell your program's user what 
you expect him to do. Our program would 
work fine without printing the prompts. But 
without the prompts, all we'd see on the 
screen would be the question marks (refer 
back to the figures in the "What is a pro- 
gram?" section to see the question marks I'm 
referring to); we'd have to know ahead of time 
what the computer was waiting for. 

The PRINT command is a very sophisti- 
cated instruction, one that allows many vari- 
ations. The form shown in this line is the 
simplest one. The text within the quotation 
marks is displayed on the screen, and the cur- 
sor is moved to the next line. (The cursor al- 
ways marks the place where the next PRINT 
statement will print.) 

Line 15 uses the INPUT command to tell 
the computer to get some information from 
the keyboard. It prints a question mark, then 
waits for the user to type something. 
Whatever number the user types will be 
stored in the variable that follows the word 
"INPUT." In our case, the variable is the nu- 
merical variable NUMBERl. (If you type 
something other than a number, you'll get an 
error. Numerical constants can only hold 
numbers, nothing else.) 

Line 20 prints our next prompt. 



Line 30 does the same thing as line 15, but 
this time the number that is typed is stored 
in the numerical variable NUMBER2. 

Line 40 takes the two numbers stored in 
NUMBERl and NUMBER2 and places their 
sum in the numerical variable TOTAL. You'll 
notice that there are no BASIC keywords, or 
commands, here. This line is an example of 
a mathematical expression. In BASIC, an ex- 
pression is calculated working from right to 
left. In other words, first NUMBERl and 
NUMBER2 are added together; then the 
result is placed in the variable TOTAL. Ex- 
pressions like this can be confusing to those 
who are familiar with algebra because the 
equals sign in this case doesn't mean 
"equals"; rather it should be interpreted as 
"gets." In English, line 40 would read "the 
numerical variable TOTAL gets the sum of 
the numerical variables NUMBERl and 
NUMBER2." This type of expression is 
called an "assignment" statement because we 
are assigning a value to a variable. 

There are five arithmetic operators you can 
use. They are: 

+ addition 

— subtraction 

X multiplication 

/ division 

A exponentiation 

Line 50 uses our handy print statement to 
display the value of TOTAL on the screen. 
Notice that this time we haven't used any quo- 
tation marks after the word "PRINT." Leav- 
ing out the quotation marks tells the computer 
that the word after the PRINT is not a string 
constant, but rather a variable whose value 
we want to know. The number stored in TO- 
TAL is printed on the screen. Confused? 
Let's say that the user typed in 5 and 35 as 
NUMBERl and NUMBER2. TOTAL would 
then be given the value 40. Contrast the fol- 
lowing examples of the PRINT statement: 



PRINT "TOTAL" <- 
TOTAL < 



You type this 

- You get this 
You type this 

- You get this 



PRINT TOTAL <- 
40 < 



See the difference the quotation marks 
make? 



Wrap Up 



That's enough information for you to 
ponder this month. Study what you've 
learned, and next month we'll continue our 
exploration of BASIC programming. H 
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For use in machine-language entry. 



by Clayton Walnum 



M/L 



Editor provides an easy 
method to enter our 
machine-language list- 
ings. It won't allow you 
to skip lines or enter bad 
data. For convenience, you may enter listings 
in multiple sittings. When you're through typ- 
ing a listing with M/L Editor, you'll have a 
complete, runnable object file on your disk. 

There is one hitch: It's for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC listing. 
Type it in and, when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a filename. If 
you're starting a new listing, type in the file- 
name you want to save the program under, 
then press RETURN. If there's already a file 
by that name on the disk, you'll be asked if 
you wish to delete it. Press Y to delete the 
file, or N to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for another file- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine-language program in 
ANALOG Computing is represented by a list 
of BASIC data statements. Every line contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need to be con- 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 



type the number and press Return. If you 
press Return without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetitions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q for 
"quit"). You must either enter a number or 
press Return. 

When you finish a line, M/L Editor will 
compare the entries' checksums with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number 
is correct, press RETURN. 

If you find an error, make the correction. 
When all data is valid, the screen will return 
to gray, and you'll be allowed to begin the 
next line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte 1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk.). 



The two-letter checksum code pre- 
ceding the line numbers here is not 
a part of the BASIC program. For 
more information, see the "BASIC 
Editor n" elsewhere in this issue. 



LISTING 1: BASIC LISTING 



MS IB DIM BF(16>,H$C4>,A$(1],B$C1>,F$I1S] 

LF il DIM M0D$C4] 

m 2B LINE-100B;RETRN=155!BACKSP = lZe:CHKS 

UM=8:EDIT=8 
SO 30 G05UB 450:PDSITI0N 18,6!? "Htart op 

(Bontinuc? "l ICOSUB 5B8I? CHR$(A] 
ZG 40 P05III0M 10,81? "FILEHflME"; IIHPUT F 

S:POKE 752, l!? " " 
re 58 IF LEN(F$)<3 THEN POSITION 28,10:? 

GOTO 48 

IIF 68 IF FSC1,2)<>"D!" THEN F1S="»I" IFIS C 

3)=F$:G0Ta S8 
«. 78 F1S=F$ 

Til 80 IF CHR$(fl)="5" THEN 128 
Fft 90 TRAP 430:0PEN ttZ, 4 , 8, Fl$ : TRAP 110 
Ha 100 FOR K = l TO 16!CET I1Z,A:NEXT XSLIHE 

=LtNEtl0:G0T0 100 
NH 110 CLOSE tl2!0PEN It2, 9, 8, Fl$ : GOTO 178 
VT 120 TRAP 160:OPEN 1)2, 4, 8, Fl$ : GOSUB 448 
[POSITION 10,10!? "FILE ALREADY EXISTS 
! !"!POKE 752,0 
ZU 130 POSITION 10,12:? "ERASE IT? "MCOS 

UB 500:P0KE 752,1!? CHRStO) 
VH 140 IF CHRSCA)="H" OR CHRSCA>="n" THEN 

CLOSE n2!G0Ta 38 
DG 150 IF CHR$(A><>"Y" AND CHR$CAI<>"u" T 

MEN 130 
BH 160 CLOSE tt2:0PEH n2,8,8,Fl$ 
IE 170 GOSUB 45e:P0SITI0N 18,1:? " l.'lil!Bil'B 

HEUl! ";LIHE:CHK5UM=0 
6H 180 L1 = 3:F0R K=1 to 16:POSITION 13I<CX< 

10)tl2HCK>9>,Xt2!P0KE 752,0!? "BYTE H" 

)Xi ; IGOSUB 310 

KH 198 IF EDIT AND 1=8 THEM BYTE=BF (XI IGO 

TO 210 
FY 200 BYTE=UAL(N$) 
OZ 281 MOD$rN$ 

BU 218 POSITION Z2,K+2:? BYTE;" " 
VZ 220 BFtX)=BYIE!CHKSUM=CHKSUMtBYTE»X:IF 

CHKSUH>9999 THEN CHK5UH:CHK5UM-10000 
MJ 230 NEXT X!CHK5UM=CHK5IIMtLIHE:IF CHKSU 

M>9999 THEN CHK5UM=CliK5UM-100B0 
IC 240 POSITION 12,Xt2:P0KE 752,8!? "CHEC 

K5UM! ") !L1=4!G0SUB 318 
EH 250 IF EDIT AND L=8 THEN 278 
nn 260 C=VAL(N$) 

SY 270 POSITION 22,X+2!? C;" " 
It 260 IF C=CHKSUM THEN 300 
M 290 GOSUB 440!EDIT=1:CHKSUM=0!GOTO 180 
LH 300 FOR X = l TO 16!PUT t)2, BF (XI ! NEXT X: 

LIHE=LINEtlO!EDIT = 0!GOTO 170 
FW 310 L=0 
KZ 320 GOSUB 500!IF (A=ASC("0"1 OR A=ASC( 

"q">) AND X=l AND NOT EDIT THEN 428 
FO 338 IF AORETRN AND AOBACKSP AND (A<4 

8 OR A>57) THEN 320 
»K 331 IF A = RETRN AND N$="" THEN NSzMODS 
T» 335 IF A=RETRN AND L=8 AND X>1 THEN 35 

8 
JR 348 IF ((A=RETRN AND NOT EDIT) OR A=B 

ACK5PJ AND L=0 THEN 320 
ON 350 IF A=RETRN THEN POKE 752,11? " "!R 

ETURH 
GG 360 IF AOBACKSP THEN 408 
S* 370 IF L>1 THEN N$=HS (1, L-1) ! GOTO 390 
AS 380 NS="" 

RE 390 ? CHRS(BACK5P); !L=L-1:G0T0 320 
BB 400 L = L«l!IF L>L1 THEN A = RETRN!GOTO 35 

CHRS(A) ; :GOTO 320 



HH 418 NS(L)=CHR$(A) : 
KN 420 GRAPHICS 0!EKD 
VT 430 G05U8 440;P051II0H 10,18:? "NO 5UC 

H FILE!":FDR X=1 to lOOOlNEXT X:CL05E 

tl2:C0T0 30 
F» 440 POKE 710,4e:S0UND 0, 100, 12 , 8 : FOR X 

=1 TO 50:next x:sound 8,0,0, o:return 

MV 450 GRAPHICS 23;PDKE 16,112;P0KE 5J774 

,112!P0KE 559,0:P0KE 710,4 
MR 460 DL=PEEK(560)t256»PEEK(561)+4:P0KE 

DL-1,70!P0KE DL*2,6 
HH 470 FOR X=3 TO 39 STEP 2:P0KE DL»X,2;N 

EXT X:F0R X=4 TO 40 STEP 2!P0KE DLtX,8 

ZM 480 POKE DL*41,65:P0KE DL*42 , PEEK {568> 
iPOKE DLt43,PEEK(561) ;PDKE 87,0 

AC 490 POSITION 2,0!? "analog Ml editor"! 

POKE 559,34!RETURM 
|K, 508 OPEN ni,4,0,"Kl":CET ai,A!CL05E Bl 
mi IRETURN ^ 
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WE'RE BACK! 



SAN JOSE COMPUTER, 'THE ATARI STORE', is the largest seller of ATAFil 
products and now we're back in the 8-Bit market to serve you better. 



1200XL 



•64KRAM 
• XE COMPATIBLE 



Reconditioned, 90 day warranty 



$49.95 1025 PRINTER $89.95 



Reconditioned. 90 day warranr 



COMPUTERS 

800 $69.95 

400 $29.95 

600XL $49.95 

Reconditioned, 90 day warranty 



MISCELLANEOUS 

850 INTERFACE $89.95 

MONO MONITOR ... $39.95 

TE^ACKBALL $9.95 

JOYSTICK 20' EXT. $ .99 

Reconditioned, 90 day wsurranty 



F>I^JlNn7E^RLS 



Reconditioned 

825 .... $79.95 
1029 ..$129.95 

Reconditioned, 90 day wan-anty 



Brand new in box! 



1 f\n'y '-^"" Quality <tQQ QQ 

iUZ/. Direct Connect . ..<POy. yO 

1020., ^"t^^... $18.98 
1020 plotter pins $ .98 



CARTRIDGES FOR 800. XL, XE 



BASIC CARTRIDGE $4.95 

gix $4.95 

TURMOIL $4.95 

PAC-MAN (no box) $4.95 

DONKEY KONG (no box) $4.95 

GORF (400,800) $4.95 

DEMON ATTACK (400,800) $4.95 

DELUXE INVADERS $4.95 

JOURNEY TO THE PLANETS $4.95 

MATH ENCOUNTER $7.98 

SKYWRITER $14 95 

FOOTI3AU. $14 95 

DEFENDER $14 95 



ROBOTRON $19.98 

TENNIS $19.98 

FINAL LEGACY $19.98 

MARIO BROS $19.98 

DONKEY KONG JR $19.98 

JUNGLE HUNT $19.98 

MOON PATROL $19.98 

BATTLEZONE $19.98 

FOOD FIGHT $19.98 

HARDBALL $19.98 

FIGHT NIGHT $19 98 

ONE ON ONE BASKETBALL $19 98 

DESERT FALCON $1 9 98 



NECROMANCER 

RESCUE ON FRACTALUS 

BALLBLAZER 

BLUE MAX 

STAR RAIDERS II 

DAVID'S MIDNIGHT MAGIC 

ARCHON 

GATO 

ACE OF ACES 

LODE RUNNER 

BARNYARD BLASTER (XE gun) 
ATARI LAB LIGHT MODUIJD 
ATARI LAB STARTER KIT 



$19.98 

$19.98 

, $19.98 

. $19.98 

. $19.98 

. $19.98 

, $19.98 

. $24.98 

. $24.98 

. $24.98 

$24 98 

$29 98 

$39 98 



DISK SOFTWARE FOR 800, XL, XE 



DAVID'S MIDNIGHT MAGIC $4.98 

ZORRO $4.98 

BANDITS (48K 400,800) $4.98 

PROTECTOR II $4.98 

CI^M .JUMPER $4.98 

SYNTREND $4.98 



CROSSCHECK $4.98 

MOLECULE MAN $4.98 

CRYSTAL RAIDER $4.98 

DESr^ATCH RIDER $4.98 

MISSION ASTEROID $4.98 



SPIDERMAN 

HULK 

VISICALC 

BOOKKEEPER W/ numcnc keypad. 
GET RICH 



. $4.98 
. $4.98 
.,$24.98 
, $29.98 
.$39 98 



810 

DISK 
DRIVES 

$129. 



BASIC TUTOR .. (2 BOOKS) .. $4.98 
SERIAL 8-BIT I/O CABLE $5.95 



SAN JOSE COMPUTER 



THE 



ATARI 



STORE 



Sunrise Plaza 640 Blossom Hill Rd. San Jose, CA 95123 
(408) 224-8575 • BBS (408) 224-0952 



5.25" DISKS 

20 CENTS EA.* 

QTy. PRICE 

10 $4.00 

100 .... $29.95 
*1000 .... $200 

MAJORnY ARE UNNOTCHED 
CONTAINING OLD SOFTWARE 



SHIPPING: ADD $5.00 TO ALL ORDERS. AIR AND INTERNATIONAL SHIPPING EXTRA. THATS IT. 

WARRANTY: 90 DAY WARRANTO' ON ALL I^TEMS. TAX: CALIFORNIA RESIDENTS ADD 7% SALES TAX. 

PREPAYMENT: USE VISA, MASTERCARD. MONEY ORDER, CASHIER'S CHECK OR PERSONAL CHECK. 

PERSONAL CHECK MUST CLEAR PRIOR TO ailPMENT. C.O.D.: CASH, CASIIER'S CHECK OR M.O. ONLY. 

Prices subject to change without notice. Brand and/or product names are tradeTnarlcs or registered trademarks of their respective holders. 

Ad produced on an ATARI ST. 



CIRCLE #105 ON READER SERVICE CARD. 





Spring is here in some parts of the coun- 
try, and, in many respects, Atari is also en- 
tering its springtime. Computers are more 
plentiful around the country. Dealers seem 
more optimistic with Atari's new attitude. 
Mail-order sales have been stopped for quite 
a while, allowing retailers a chance to make 
a decent profit on the computers they sell. 
In other words, retailers are no longer asked 
to provide support to users who have pur- 
chased their computers elsewhere. 

And users seem generally more optimis- 
tic too. Atari has started listening to users and 
responding to their concerns. To many peo- 
ple. Atari no longer appears to be a humbug. 
On major telecommunications services like 
CompuServe, a direct line of communication 
has been established to Atari President Sam 
Tramiel and Vice President Sig Hartmann. 
Advertising by Atari is said to be right around 
the corner, now that the increased supply of 
product can feed the additional demand for 
computers. 1989 may indeed be the year that 
Atari turns things around. 



Desktop-Accessory Accessory 

Occasionally a program comes along that 
fulfills a need simply and elegantly. These 
niche programs often come from individuals 
or small companies and are created by 
user/programmers that initially wanted to cre- 
ate a solution for their own needs. Such is 
the case with a new utility program from 
CodeHead Software called MultiDesk. 

Normally, when you boot the ST, GEM 
loads all desktop-accessory programs it finds 
(that is, programs with a filename extension 
of .ACC). You can have up to six desktop ac- 
cessories loaded at once when the computer 
boots up. Actually, only the first six .ACC 
files are loaded into GEM, and the rest are 
ignored. If you want to access an accessory 
that was not originally loaded, you must en- 
sure that the one you want is one of the six 
accessory files and then reboot the machine. 

MultiDesk allows you to use any desktop- 
accessory program on your ST at any time 
without rebooting the computer. The size of 
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the ST's memory places the only limit on the 
number of accessories that can be loaded at 
one time. Actually, MultiDesk works both as 
a desktop accessory and as a regular GEM 
program. 

As a desktop accessory, MULTI- 
DESK. ACC is loaded in the usual manner 
at boot-up with up to five other accessories. 
Clicking on MultiDesk from the Desk menu 
calls up the MultiDesk dialog box where you 
decide which accessories you want to be load- 
ed into MultiDesk itself. Up to 32 accesso- 
ries can be named and included with 
MultiDesk. 

The program reserves a portion of memory 
for all of the accessories you have chosen, 
and once your selections have been made, just 
enough memory is set aside: no more and no 
less. You can create a configuration file from 
within MultiDesk so that the next time you 
boot the machine, your selected accessory list 
will be automatically loaded. Also, to make 
using MultiDesk even more convenient, you 
can choose an option that will bring the 
mouse pointer directly to the list of accesso- 



install them is one of MultiDesk'^ best 
features. 

CodeHead Software is the company that 
brought us G+Plus, the excellent replace- 
ment for Atari's ineffective and memory- 
hungry GDOS. For $32, MultiDesk is an ex- 
cellent tool for both programmers and nor- 
mal users. In fact, I would call it the ultimate 
accessory program. I'm looking forward to 
future innovative and useful programs from 
CodeHead. 



Recent News 



Regent Software, makers of Regent Word 
II and Regent Base II for the ST has recently 
announced a new Student Edition of Regent 
Word II. This word-processing program is a 
new version of the GEM -based Regent Word 
II and is aimed at the educational and small- 
business market. According to Regent Soft- 
ware, Student Edition is one of the few ST 
word-processors that will work on a standard 
512K ST computer. 

The program has several new features in- 




ries when you click on the MultiDesk ac- 
cessory. 

If for some reason, you want to be able to 
load more than 32 desktop accessories at 
once, MultiDesk will let you do it. By renam- 
ing MUUriDESK.ACC to other names (re- 
taining the .ACC extension), you can have a 
maximum of 192 accessories available simul- 
taneously (6 accessory slots fimes 32 each). 
I can't imagine anyone needing access to that 
many accessories, but some power users may 
find it necessary, assuming they have the 
megabytes to spare. You can even have Mul- 
tiDesk nested as an accessory inside another 
version of MultiDesk — up to a reported 130 
levels. Sheesh! 

As a regular program, MultiDesk is also 
useful. Just renaming the program to MUL- 
TIDESK.PRG and double-clicking on it from 
the desktop, gives you access to any desktop 
accessory, whether it has already been load- 
ed or not. When returning to the desktop, the 
accessories become unavailable again. Being 
able to execute any and all desktop accesso- 
ries from the desktop without having to first 
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eluding double-column printing, 40,000 word 
spelling checker (expandable up to 100,000 
words) and support for dozens of printers. Re- 
gent Word Student Edition sells for $25, is not 
copy protected and comes with a complete 
user manual. 

At the same time, Regent announced that 
Regent Word III will be appearing sometime 
this year. The new advanced word-processing 
program will feature the company's own 
graphics operating system, RDOS, and will 
allow the use of Macintosh and GEM 
(GDOS) fonts in a MacWrite-style word- 
processing environment. In addition, the pro- 
gram will allow graphics from DEGAS Elite 
and other drawing programs to be included 
in its documents. More details on Regent 
Word III will be available later in the year. 

Regent Software is also selling a new, in- 
expensive product called Megatouch. The 
product consists of a set of springs or "key- 
board stiffeners" that make the 520 or 
1040ST keyboards feel like a Mega ST 
keyboard. 

Megatouch is easy to install. Just pop off 



each keycap on your ST keyboard, place the 
spring in position and re-insert the keycap. 
If you have not memorized the QWERTY lay- 
out of your keyboard, it's best to do one key 
at a time so that you'll be able to put the key- 
caps back in the correct places. 

Megatouch works surprisingly well. I've 
performed this modification to my 520ST and 
am impressed with the results. The keyboard 
sfill doesn't feel like an IBM keyboard (the 
best I've used), but it is a definite improve- 
ment over the mushy feel of the original ST 
keyboard. For $12, Megatouch is worth the 
price and highly recommended. 

For information. Regent Software can be 
reached at (213) 439-9664, or write to Re- 
gent Software, RO. Box 14628, Long Beach, 
CA 90803. 

Not Another Joystick 

Since my early days as an Atari Video 
Computer System (VCS) owner nearly ten 
years ago, I have been on a quest for the ul- 
timate joystick. I know many true gamers 
share this obsession and, like me, can prob- 
ably attest to a collection of joysticks that 
numbers in the dozens. 

Wico has been the king of the joystick com- 
panies for many years. Although not all of 
their joystick creations are still in production, 
they can still be readily found in toy and game 
stores. Wico sticks are classics. They are big, 
rugged and solidly built. Some have bat han- 
dles, others have knob handles and some have 
interchangeable ones. 

Although I admire Wico sticks and own 
just about every one they ever made. I always 
felt that they were a little on the large size, 
especially for my average-sized hands. Sure, 
they had a fire button at the top of the han- 
dle as well as on the base, but I often had 
difficulty using the sticks when the going got 
rough. It seemed that response-time suffered 
as a result. 

One of my favorite sticks is the Suncom 
StarFighter. What I like most about it is that 
it is small. It has both a small base that is 
easy to grab and a short stick that allows fast 
action. Unfortunately, it has a "cheap plas- 
tic" feel to it that comes from the construc- 
tion and lack of tactile feedback. Electrical 
contacts rather than microswitches are used 
in this stick so no click is heard when the han- 
dle is moved. Also, I have worn out two of 
these babies over the years. Another problem 



with the Suncom is that, after prolonged use, 
my gripping hand feels fatigued. 

Another favorite stick is the Epyx 500X1. 
This too is a small stick, but the base con- 
forms to the shape of your hand and is less 
fatiguing. There is also a groove for the 
thumb on the base, and the trigger button is 
strategically located under the tip of the in- 
dex finger. This stick is made to be held with 
the left hand while the right hand's fingers 
perform the action. The Epyx 500X7 has a 
sturdy design and feels solid to the grip. 

A while back, I came across a new joystick 
and have been using it on and off since. It's 
the Ergostick from Wico. The Ergostick looks 
like an Epyx 500X7 but with something 
different added. That difference is the cover- 



ing of the base— a slightly sticky, soft 
covering— with a pleasing feel to it. 

The Ergostick appears to be a quality de- 
sign and has held up well under occasional 
heavy use. Microswitches have been used 
which provide the all important feedback and 
the shaft has a steel center. The skin-like 
material covering the base feels a litde odd 
at first, but I soon came to appreciate its grip- 
ping characteristics. 

One of the best features of the Ergostick 
is that my left hand did not become fatigued 
after prolonged use. I can play longer with 
this stick because I don't need to grip it as 
tightly. This, I presume, is due to the soft 
covering. In addition, moving the shaft to the 
diagonal positions does not require extra at- 



tention as it does with some other joysticks. 

With some other joysticks, such as the Sun- 
com mentioned above, moving to the diagonal 
positions doesn't seem as precise as when 
moving the handle to the horizontal and ver- 
tical positions. This is frustrating and slows 
the overall response of the stick. The Er- 
gostick feels comfortable when moving to all 
directions, and the handle has a short 
"throw," which I prefer. 

The Ergostick sells for $25 and is availa- 
ble from Wico Corporation, 6400 West Gross 
Point Rd., Niles, IL 60648. Phone (312) 
647-7500. 

Arthur Leyenberger is a human factors psy- 
chologist and freelance writer living in New 
Jersey. (3 



FOR OUR DISK 
SUBSCRIBERS 

The following programs from this 
issue are on disk: 



2) TURN ON DISK DRIVE AND MONITOR 
3 ) INSERT DISK IN DRIVE 

4) TURN ON COMPUTER (XL AND XE OWNERS DO NOT 
HOLD DOWN OPTION KEY ! ) 



WARNING : 



BEFORE YOU RUN A PROGRAM, READ THE 
APPROPRIATE ARTICLE IN THE MAGAZINE. 



THE A.N.A.L.O.G. #72 DISKETTE CONTAINS 1£ 
MAGAZINE FILES. THEY ARE LISTED BELOW. 



SIDE 1: 












FILENAME 


.EXT 


LANG. 


LOAD 


COMMENTS 


BBKCP 


.OBJ 


ML 


(#4) 


COMMAND PROCESSOR 


CLOWN 


.OBJ 


ML 


(#3) 


CRAZY 


CLOWN JUMPER 


CONVERT 1 


.BAS 


BASIC 


LOAD 


GRAPHICS CONVERTER 


CONVERT 2 


.BAS 


BASIC 


LOAD 


GRAPHICS CONVERTER 


INVADERS 


.BAS 


BASIC 


LOAD 


GAME DES. WORKSHOP 


SIDE 2: 












FILENAME 


.EXT 


LANG. 


LOAD 


COMMENTS 


BBKCP 


.M65 


MAC/65 


LOAD 


COM. PROC. SOURCE 


CLOWN 


.AMA 


AMAC 


(#2) 


CLOWN 


SOURCE 1 


BDATA 


. LNK 


AMAC 


(#2) 


CLOWN 


SOURCE 2 


PAGES IX 


.LNK 


AMAC 


(#2) 


CLOWN 


SOURCE 3 


LINKl 


.LNK 


AMAC 


(#2) 


CLOWN 


SOURCE 4 


PLATFORM 


.LNK 


AMAC 


(#2) 


CLOWN 


SOURCE 5 


VBISUB 


.LNK 


AMAC 


(#2) 


CLOWN 


SOURCE 6 


SCORE 


.LNK 


AMAC 


(#2) 


CLOWN 


SOURCE 7 


VBILINK 


.LNK 


AMAC 


(#2) 


CLOWN 


SOURCE 8 


DOLLAR 


.LNK 


AMAC 


(#2) 


CLOWN 


SOURCE 9 


LEVEL 


.LNK 


AMAC 


(#2) 


CLOWN 


SOURCE 10 


FALLING 


.LNK 


AMAC 


(#2) 


CLOWN 


SOURCE 11 


PMINT 


.LNK 


AMAC 


(#2) 


CLOWN 


SOURCE 12 


TO LOAD 


YOUR 


A.N.A.L. 


.O.G. DISK 





1) INSERT BASIC CARTRIDGE (NOT REQUIRED FOR XL 

OR XE COMPUTERS) 
SB 



NOTE: ONLY PROGRAMS WITH THE ".BAS" OR ".OBJ" 
EXTENTION MAY BE RUN FROM THE MENU. 
OTHER PROGRAMS SHOULD BE LOADED AS 
INSTRUCTED IN THE LOADING NOTES AND MAY 
REQUIRE ADDITIONAL SOFTWARE AS LISTED 
BELOW. HOWEVER, YOU SHOULD NOT ASSUME 
THAT EVERY FILE WITH THE PROPER FILE 
EXTENSION WILL RUN FROM THE MENU. YOU 
MAY HAVE TO MOVE CERTAIN PROGRAMS TO A 
DIFFERENT DISK TO OBTAIN CORRECT RESULTS. 



EXT DESCRIPTION 



.M65 REQUIRES 

.AMA REQUIRES 

.ASM REQUIRES 

.ACT REQUIRES 

. LGO REQUIRES 

. SYN REQUIRES 

.STB REQUIRES 

LOADING NOTES 



THE OSS MAC/65 ASSEMBLER 
THE ATARI MACRO ASSEMBLER 
THE ATARI ASSEMBLER/EDITOR 
THE OSS ACTION! CARTRIDGE 
THE ATARI LOGO CARTRIDGE 
THE SYNAPSE SYN ASSEMBLER 
ST BASIC 



LOAD BASIC PROGRAM: 
ENTER BASIC PROGRAM: 
LOAD MAC/65 PROGRAM: 



LOAD "D: FILENAME. EXT" 
ENTER "D: FILENAME. EXT" 
LOAD #D: FILENAME. EXT 



ENTER ASM/ED PROGRAM: ENTER #D : FILENAME. EXT 
LOAD LOGO PROGRAM: 
LOAD SYN/AS PROGRAM: 



LOAD "D: FILENAME. EXT" 
LOAD "D: FILENAME. EXT" 



#1: SEE ACTION! MANUAL. 

#2: SEE ATARI MACRO ASSEMBLER MANUAL. 

#3: MAY ALSO BE LOADED FROM DOS USING THE "L" 

OPTION OF THE DOS MENU. 
#4: THIS FILE SHOULD BE TRANSFERRED TO ANOTHER 

DISK AND RENAMED "AUTORUN. SYS" . 
#5: SEE ST BASIC MANUAL. 
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VOUR MISSION MAP. 
PRESS FIRE BUTTON 



Reviewed by Matthew J.W. Ratcliff 

Ace of Aces puts you in the cockpit of a De- 
Havilland Mosquito, in the middle of World 
War II. Take on the role of a would-be ace 
pilot, a member of Britain's Royal Air Force, 
in one or more of four scenarios. 

Ace of Aces provides a simulation of as- 
saulting the Nazi U-boats (submarines), out- 
running V-1 buzz bombs, chasing down 
bombers, or stopping POW trains before 
reaching enemy lines. The user may begin 
with practice or a full mission. To practice, 
any one scenario may be chosen and played 
immediately. If a mission is enabled, one or 
more scenarios may be chosen. Each option 
presents an intelligence report including 
weather, expected adversaries and recom- 
mended armaments. Next, the user must 
choose the appropriate cluster of bombs, 
machine-gun ammo, rockets and spare fuel 
tanks. It seems that the only trade-offs en- 
countered here are between bombs and 
rockets. 

Once all mission, fire power and fuel op- 
tions have been enabled, the air raid siren 
goes off as a black-and-white photo sequence 
is displayed, prepping the aircraft for takeoff. 
This is a nice graphic sequence, coupled with 
a very obnoxious sound effect. The fire but- 
ton mercifully sends control to the flight 
screen. 

It's always cloudy in Ace of Aces. The pi- 
lot will never see the ground, not even mo- 
ments before he crashes. In fact, the only time 
the ground or ground targets are seen is when 
the bomb-bay doors are open and the aircraft 
is on the perfect course for enemy intercep- 
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STUDY CftREFULLY. 
TO CONTINUE. 



ACE OF ACES 

by Accolade 

Atari Corp. 

1196 Borregas Avenue 

Sunnyvale, CA 94086 

(408) 745-2000 

XL/XE Cartridge $34.95 



tion. If the plane is off course, only the gray 
of cloud cover is seen. 

The main play screen is split, the top dis- 
playing mostly clouds and the blue sky above, 
while the bottom is occupied by the cockpit. 
A hash mark appears on the compass, locat- 
ed at the left of the display, indicating the 
proper direction for the next target. When the 
hash mark is centered on the compass, the 
proper course is set. An artificial horizon is 
at the center of the cockpit, with the yoke dis- 
played below. The yoke moves in response 
to the joystick— a nice effect. 

At any time, en route to the next target, 
enemy ME109s may attack. They are difficult 
to kill due to sluggish joystick response. The 
enemy seems to jump about the screen and 
sometimes vanishes from the display. It's 
difficult to line up an enemy plane in the gun 
sights and shoot it down. Evasive maneuvers 
are generally a wasted effort. The clouds look 
nice, but a simpler display would have 
sufficed for more responsive game play. 

There are five displays the user may view 
during a mission, which may be selected by 
pressing the keys 1 through 5. Using a clever 
fire button/joystick move, these screens may 
be viewed without the use of a keyboard. A 
navigational map may be viewed, which dis- 
plays the current location of the pilot's plane, 
the ever-present pair of storm clouds (that you 
apparently fly in all the time), and locations 
of the next target(s). 

Throttle, fire extinguisher, flaps, gear, and 
other controls are found in the engine room, 
which is available from either of the side 
views. At the bottom left of each view is an 



icon of the plane, called the intercom. When 
the center flashes red, it is time to move to 
the bomb-bay screen to attack a ground tar- 
get. Other flashing areas on the intercom in- 
dicate problems, such as a fire, that must be 
attended to. 

When attacking a POW train or U-boat, the 
target is seen through the open bomb-bay 
doors. It seems illogical to bomb a POW 
train, for fear that the prisoners, your allies, 
may be killed in the process. The goal is to 
bomb the cars marked with iron, and not red, 
crosses. It is a wasted effort to attempt bomb- 
ing the tracks in front of the locomotive, since 
the game automatically breaks off the attack 
before this can be achieved. However, this ap- 
proach would seem to be the most logically 
safe way to stop the train from taking 
prisoners across the border. The scenarios 
seem contrived, stifling creative thinking. 
The U-boats are sitting ducks on the surface 
of the water. They do not spot the Mosquito 
until its bomb-bay doors open, then they be- 
gin to dive. There are only precious moments 
to get off a successful bombing run before 
they are safely submerged. 

The ultimate goal of this game is to fly all 
four scenarios in a single mission and return 
to base safely to become Ace of Aces. The 
graphics in this game are excellent, to the 
detriment of playability. A little less graphic 
effects in favor of a more responsive joystick 
in the air-to-air scenarios could have made 
this a champion game instead of a lackluster 
one. This author would much prefer to see 
F-15Strike Eagle, from MicroProse, packaged 
in a cartridge. ff{ 
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by Robin Sherer 



How to Read the Memory Map 

Beginning users: Read the text that is print- 
ed in bold type only. These memory locations 
will be the easiest for you to use and usually 
don't involve assembly language. 

Advanced users: Read everything! Many 
areas of memory are not of any practical use, 
but you can learn a lot about how a computer 
works by reading the boring parts. 

The Character Set 

The data for the regular Atari charac- 
ter set is stored in Locations 57344 through 
58367. There are eight bytes for each 
character and 128 characters in all (for a 
grand total of 1024 bytes). But wait a 
minute. Doesn't the Atari have 256 charac- 
ters? Yes, but the mformation for the regu- 
lar characters is all the Atari needs to laiow 
to print inverse characters, so that's why 
there are only 128 character descriptions. 

For lots of information on how the bytes 
are used to describe a character, and on 
the order of the characters within the 
character set, see CHBAS at Location 756. 

The following program will use the 
character descriptions to put text on the 
screen in graphics mode 8: 



lee GRAPHICS 8 

105 5CRMEM=PEEKC88J+PEEKC89 

1»256 

110 DIM TEXTS tl2ej 

120 PRINT "Start text in wh 



at coluMn CO-39)"; 

130 INPUT COL 

140 PRINT "in What row C8-1 

52) " ■ 

150 INPUT ROM 

160 PRINT "Type in the text 

you want to print:" 
170 INPUT TEXTS 
180 CH5ET=PEEKC7561»256 
190 FOR CHAR=1 TO LEN CTEXTS 
) 

200 ftTftSC=ASCCTEXTS(CHftR,CH 
AR}} 

210 N0INU=ATflSC-128»CATA5C> 
127) 

220 INTRNL=N0INg-32»£N0INU< 
96}-i-96MCN0INU<32) 
230 FOR BYTE=CH5ET+INTRNL*8 

TO CHSET+IMTRMLK8+7 
240 POKE SCRMEM+R0W»40+C0L, 
ABS £255» CATAS0127) -PEEK CBY 
TE)) 

250 R0M=R0M+1 
260 NEXT BYTE 
270 R0M=R0W-8 
280 C0L=C0L+1 

290 IF C0L=4e THEN C0L=e:R0 
N=R0M+8 
300 NEXT CHAR 
310 PRINT 
320 GOTO 120 



Vectors and Vector Tables 

What are vector tables? You remember that 
a vector is a pair of memory locations that 
holds the address of a routine. A vector ta- 
ble is, quite simply, a table of vectors. Thus, 
Locations 58368 through 58533 hold the ad- 
dresses of various routines, mostly having to 
do with I/O or interrupts. 
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EDITRV 

58368-58383 E400-E40F 

This is the vector table for the screen-editor 
handler. For a description of its contents, 
along with the contents of the next four vec- 
tor tables, see HATABS at Locations 794 
through 831 (where we called it a "handler 
address table")- 



SCRENV 
58384-58399 



E410-E41F 



The vector table for the display handler. 
See the note at EDITRV. 



KEYBDV 

58400-58415 



E420-E42F 



The vector table for the keyboard handler. 
See the note at EDITRV. 



PRINTV 

58416-58431 



E430-E43F 



The vector table for the printer handler See 
the note at EDITRV. 



CASETV 

58432-58447 



E440-E44F 



The vector table for the cassette handler. 
See the note at EDITRV. 

You will notice that the following 16 vec- 
tors are three bytes long rather than two. Why 
the extra byte? The first byte is a 6502 IMP 
instruction, while the address is in the second 
two bytes. 

The purpose of these vectors may not be 
obvious to you (it wasn't to me). Atari knew 
that it would probably need to make changes 
to the OS at some point. It also wanted to 
make sure that old programs would still be 
able to work with these newer versions of the 
OS, even though some of the addresses would 
be different. The solution was to use vectors. 
That way, even though the addresses in the 
vectors would change, the addresses of the 
vectors would remain the same, and programs 
using these addresses would still work. The 
reason that some programs don't work with 
Version B of the OS is that these programs 
didn't use the vectors. 



DISKIV 
58448-58450 



DISKIV is the initialization vector for the 
disk handler. It points to Location 60906. 



DISKINV 
58451-58453 



E453-E455 



This is the entry vector for the disk han- 
dler. It points to Location 60912. 



CIOV 

48454-48456 



E456-E458 



CIOV is the entry vector for CIO (Central 
Input/Output). 

You can see CIO yourself by first setting 
up an lOCB (see Locations 832 through 959), 
and then using the following routine: 



lee DIM HL$C7) 

118 GosuB leeee 

126 CI0=USR(ADRCML$),I0CB«1 

6} 

13e END 

10009 FOR BYTE=1 TO 7 

10010 READ IKSTR 

10020 ML$CBYTE,BYTEJ=CHRSCI 

N5TR] 

10030 NEXT BYTE 

10040 RETURN 

10050 DATA 104,104,184,170, 

32,86,228 

The data is for this machine-language 
routine: 



68 


PLA 


68 


PLA 


68 


PLA 


AA 


TAX 


2056E4 


JSR 



$E456 



CIO expects the number of the lOCB you 
want to use, times 16, in the X register. That's 
why we have I0CB*16 in the preceding pro- 
gram. You should substitute the lOCB num- 
ber you are using for lOCB. Remember to 
OPEN the lOCB first. 

CIOV points to 58564. 



SIOV 

58457-58469 



E459-E45B 



E450-E452 



This is the entry vector for SIO (Serial In- 
put/Output). 

SIOV points to 59737. 



SETVBV 
58460-58462 



E45C-E45E 



SETVBV is the entry vector for a routine 
that serves two purposes. First of all, as we 
saw at VVBLKD (548,549), it will set up 
VVBLKI and VVBLKD for us. Second, as 
we saw at CDTMAl (550,551), it will also 
set up the vectors for the system timers. See 
VVBLKD and CDTMAl for more infor- 
mation. 

SETBV points to 59666 in Version A of the 
OS, and to 59629 in Version B. 



SYSVBV 
58463-58465 



E45F-E461 



This is the entry vector for the Stage 1 
VBLANK routine. Unless you have your own 
routine, VVBLKI (546,547) normally points 
here. See VVBLKI and VVBLKD (548,549) 
for more information on VBLANK. 

SYSVBV points to 59345 in Version A of 
the OS, and to 59310 in Version B. 



XITVBV 

58466-58468 



E462-E464 



XITVBV is the exit vector for the VBLANK 
routine. This is what VVBLKD points to un- 
less you've changed it. 

Use XITVBV to return to where the com- 
puter left off from when the VBLANK in- 
terrupt occurred. It points to 59710 in Version 
A of the OS, and to 59653 in Version B. 

The following four vectors are designed for 
use by the OS only. 



SIOINV 

58469-58471 



E465-E467 



This is the initialization vector for SIO. 

SENDEV 

58472-58474 E468-E46A 

SENDEV is the vector for the "send-able" 
routine. 

INTINV 

58475-58477 E46B-E46D 

This is the initialization vector for the 
interrupt-handler routine. 
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The following two vectors are designed for 



CIOINV use by the OS only. 


CIO's initialization routine. 


58478-58480 E46E-E470 




RBLOCKV 


CIO 


CIOINV is the initialization vector for 58490-58492 E47A-E47C 


58564 E4C4 


CIO. 




RBLOKV is the entry vector for the cas- 


The main CIO routme (includes the follow 


BLKBDV sette "read-block" routine. 


ing routines). 



58481-584483 



E471-E473 



This is the entry vector for the black- 
board mode, which is more commonly 
known as the "Atari memo pad" mode. 
Type BYE from BASIC, or turn on the 
computer with no cartridges or disk drives 
to see what I mean. This mode lets you 
type things on the screen without anybody 
caring what you type. In other words, you 
can press Return and nothing will happen. 
To get back to BASIC, press System Reset 
(this won't erase your BASIC program). 

BLKBDV points to 61987. 
WARMSEV 
58484-58486 E474-E476 

WARMSV is the entry vector for the 
warmstart routine. The OS jumps through 
here when System Reset is pressed. 

WARMSV points to 61723. 

In case these locations don't seem use- 
ful to you, try this: 

X = USR(58484) 

What you have just done is told the com- 
puter to go to 58484, which contains a 
machine-language instruction to go to the 
address in the next two memory locations. 
Since this routine is for what's called 
warmstart, the computer will now act just 
like you pressed System Reset. You use the 
other locations in this section just like this. 
Try it! 



COLDSV 

58487-58489 



E477-E479 



This, appropriately, is the entry vector for 
the coldstart routine. Whereas going through 
WARMSV only initializes the OS RAM, go- 
ing through COLDSV initializes all RAM, 
meaning that any programs in memory will 
be erased. See COLDST at Location 580 for 
a way to hook COLDSV up to System Reset 
rather than WARMSV. 

COLDSV points to 61733. 



CSOPIV 

58493-58495 



E47D-E47E 



This is the vector for the cassette "OPEN- 
for-input" routine. 



VCTABL 

58496-58533 



E480-E4A5 



VCTABL is a table of the initial values for 
the OS RAM vectors. 

Now we're into the final part of the OS, 
which consists mostly of the various built-in 
handlers, interrupt routines, and so forth. 
What follows is a list of addresses for some 
of these routines, which can be useful to you 
in one of several ways. If you're a beginner, 
the list will provide you with an idea of ex- 
actly what the OS does. If you're a machine- 
language programmer then, along with the 
OS listing, the list will help you find the var- 
ious routines so that you can see exactly how 
things are done. By studying the routines, you 
can also pick up on programming techniques 
(don't be afraid of the OS listing; it's really 
not that difficult to understand). Finally, if 
you really know what you're doing, you can 
rewrite the routines and put them in your own 
programs, customizing them to your own 
needs. 

Most of the routines will not work without 
some kind of previous setup, so make sure 
you check the OS listing before you attempt 
to use them. 

Please note that all the following address- 
es are for the original OS only. Some of them 
may be different in the newer versions. At the 
time of this writing, however, the OS listing 
is for the original version, and that is why 
these addresses are used. 



CIOINT 

58534 



CIO Routines 

E4A6 



CIOPEN 






58633 


E509 




OPEN routine. 






CICLOS 






58675 


E533 




CLOSE routine. 






CISTSP 






58702 


E54E 




STATUS and special requests 


routine. 


CIREAD 






58729 


E569 





GET routine (GET character and GET 
record). 



CIWRIT 

58825 



E5C9 



PUT routine (PUT character and PUT 
record). 



CIRTNl 

58907 



E61B 



Return from CIO with the status in the Y 
register. 



CIRTN2 
58909 



E61D 



Return from CIO with the status in IC- 
STAZ (35). 



COMENT 
58941 



E63D 



Compute the handler entry point using 
HATABS (794) and COMTAB (59081). 



GOHAND 
59017 



E689 
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Jump indirectly to the device handler. An 
indirect jump, in this case, means fooling the 
6502 into thinking that the address you want 
to jump to is actually the one you want to RTS 
to. This involves playing with the stack and 
is a pretty neat trick you may want to look at. 



SETVBL 
59666 



E912 



ISRSIR 

60177 



EBll 



This routine can be used to set up vectors 
for your own VBLANK routines, and also for 
the system timers. See SETVBV at 58460. 



This is the "serial-input data needed" in- 
terrupt routine. See SERIN at Location 

53773. 



DEVSRC 


XITVBL 


59038 E69E 


59710 E93E 


Find a particular device in the handler ad- 


Exit from vertical blank. 


dress table. 




COMTAB 


SIO Routines 


59081 E6C9 


SIOINT 




59716 E944 


This is a table of offsets into the handler 




entry point table for the desired device. It is 


SIO's initialization routine. 


used to find the correct vector for the given 




command. 


SIO 




59737 E959 



CASENT 
60292 



EB84 



Read or write a record to cassette (SIO han- 
dles the cassette differently than other 
devices). 



BEGIN 
60692 



ED14 



Figure out the baud rate for the next record. 
See CBAUDL/H at Locations 750 and 751. 



POKTAB 
60882 



EDD2 



Interrupt Handler Routines 

E6D5 
Initialize the interrupt handlers. 



IHINIT 
59093 



PIRQ 

59123 



E6F3 



Jump to the main IRQ handler routine 
through VIMIRQ (534,535). Unless you've 
changed it, VIMIRQ points to SYIRQ. 

SYIRQ 

59126 E6F6 

This is the system's IRQ handler routine. 

PNMI 

59316 E7B4 

This is the system's NMI handler routine. 

System VBLANK Routines 

SYSVBL 

59345 E7D1 

This is the immediate vertical blank rou- 
tine (Stage 1 VBLANK). 



The main SIO routine (includes the follow- 
ing routines). 

RETURN 

59917 EAOD 

Return from SIO. 

WAIT 

59930 EAIA 

Wait for the device to finish what it has 
been told to do. 

SEND 

60011 EA6B 

Send a buffer of bytes to a device. 



This is a table of values used in the preced- 
ing baud-rate routine. 



Disk Interface Routines 



DINIT 
60906 



EDEA 

The disk interface's initialization routine. 



DSKIF 

60912 



EDFO 
The main disk interface routine. 



ISRODN 
60048 



EA90 



PRNORG 

61048 



Rrinter Handler Routines 

EE78 



This is the "serial-output data needed" in- 
terrupt routine. See SER-OUT at Location 

53773. 



ISRTD 
60U3 



EADl 



This is the beginning of the printer han- 
dler. See HATABS at Location 794 for a list 
of routines in this or any handler. 



Cassette Handler Routines 



This is the "transmission done interrupt" 
routine. See POKMSK at Location 16. 



CASORG 

61249 



EF41 



SYSVB3 
59400 



RECEIV 
60130 



EAE2 



This is the beginning of the cassette han- 
dler. See the note at PRNORG. 



E808 



This is the Stage 2 VBLANK routine. 



Receive a bunch of bytes from a device and 
store them in a buffer. 



BEEP 
61528 



F058 
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The cassette handler uses this routine to 
make the keyboard speaker beep when you 
type CLOAD or CSAVE. 



Monitor Routines 



RESET 

61723 



FllB 



This is the start of the System Reset 
routine. 



PWRUP 




61733 


F125 


The start of the coldstart routine. 


ZERORM 




61752 


F138 


Clear all the RAM locations. 


ZOSRAM 




61792 


F160 



Clear the OS RAM only (for warmstart). 

BLACKB 

61994 F22A 

The blackboard routine (memo pad mode). 

SPECL 

62015 F23F 

Check to see how much RAM there is. 



HARDI 




62081 


F281 


Initialize the hardware locations. 


OSRAM 




62100 


F294 


Initialize the OS RAM locations. 


BOOT 




62159 


F2CF 



Boot the disk if it's so desired (i.e. , the disk 
drive is hooked up and turned on). 



CSBOOT 

62386 



F3B2 



Boot the cassette if it's so desired (i.e. , the 
Start button was held down when the com- 
puter was turned on). 

MAY A.N.A.L.O.G. Computing 



Display Handler Routines ^^^^ ^^^P^^y ^«^^^^^ ^''^'^^'^^^ 



DOPEN 

62454 



F3F6 



OPEN the display handler (set up a graph- 
ics mode). 

GETCH 



62867 




F593 


GET a 


character from the screen. 


OUTCH 






62903 




F5B7 


PUT a 


character 


on the screen. 


OUTPLT 






62944 




F5E0 


PLOT a point on 


the screen. 



Screen Editor Routines 



EGETCH 
63038 



F63E 



INPUT a logical line from the keyboard 
and print it to the screen. Remember that a 
logical line ends either when you press 
Return or fill three rows on the screen. 



EOUTCH 

63140 



F6A4 



PRINT a character on the screen, making 
sure that control characters are processed in- 
stead of just printing (i.e. , a CTRL-arrow will 
move the cursor rather than printing an 

arrow). 



Keyboard Handler Routines 

F6DD 
GET a character from the keyboard. 



KGETC2 
63197 



ESCAPE 
63353 



F779 



Process all the various control characters. 



BELL 

63754 

Ring the bell. 



F90A 



CONVRT 
63815 



F947 



Take the row number and column number 
that the cursor is on and figure out what 
memory location that corresponds to. 



INATAC 
64306 



FB32 



Convert an internal character value to its 
ATASCII value. 



CLRLIN 

64411 



FB9B 



Clear the line that the cursor is currently 
on. 

SCROLL 

64428 



FBAC 



Scroll the screen. 

DRAW 

64764 



FCFC 



Draw a line from OLDROW, OLDCOL to 
TWOCRS,COLCRS (Locations 90 through 
92 and 84 through 86). 



Tables, Tables and More Tables 

Locations 65093 through 65469 are vari- 
ous tables for use with the display handler. 
Check the OS listing for more details and to 
find out which routines use them (use the 
cross-reference table at the end of the listing). 

One More Keyboard Routine 

PIRQQ 

65470 FFBE 



The IRQ in this location's name should tip 
you off to the fact that this is the interrupt 
routine for the keyboard. It debounces the 
keys, checks for CTRL-1 (pause) and sets 
SSFLAG accordingly (767), stores the key 
value in CH (764) and CHI (754), and clears 
ATRACT (77). 

That's All Folks 

Yup, that brings us to the end of Atari 
memory. Thanks for bearing with me for all 
of this. You can now relax and take a well- 
deserved break! fl 





It's audition night at one of the toughest circuses in the world. 
You've heard the circus is looking for a clown, but not just any 
clown, they want someone who is also an acrobatic expert! The 
audition is simple enough. 



'y-y^ 




Standing on a 100-foot-high platform, you 
must jump across numerous rising balloons 
to get to a platform on the other side of the 
circus tent, and when you get there, you have 
to try to make it back again— but don't fall, 
because this circus doesn't use nets. 

The game starts with you, the clown, stand- 
ing on the platform at the left side of the 
screen. You must jump from balloon to bal- 
loon to get to the platform on the right side 
of the screen, then make it back to the plat- 
form on the left again. You control the clown 
with a joystick. To move left or right, sim- 
ply move the joystick in the corresponding 
direction. To jump, press the fire button, and 
move the joystick in the direction you wish 
to jump. 

You have a choice of a short jump or a long 
jump. For a short jump press the fire button, 
and move the joystick either left or right. For 
a long jump, press the fire button, and move 
the joystick either diagonal right or diagonal 
left. When you land on a balloon, you can 
jump off, drop off the side to a balloon be- 
low you or just stand there and enjoy the ride 
to the top of the screen. 

A status line at the top of the screen dis- 
plays your score, the level you are currently 



on, and the number of clowns you have re- 
maining. You get 500 points for each level 
you complete. Also, a bonus dollar sign will 
occasionally rise up on one of the balloons. 
Touching it gives you a 100-point bonus. 

Crazy Clown Jumper has nine levels of 
difficulty. You'll advance in level every time 
you make it completely around. That is, 
jumping from the left platform to the right. 



then back again. At Level 2, the platforms 
will begin to slowly rise and fall. At Level 
3, they'll also begin to expand and contract. 
The speed of the balloons and platforms will 
increase as you progress to higher levels, and 
the number of balloons appearing on screen 
will decrease. 

You begin the game with four men. If you 
make it to Level 6, you'll gain an extra man. 
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LISTING 1: M/L EDITOR DATA 



1808 DATA 255,255,8,64,171,76,32,136,6 

68,32,147,68,162,143,169,8,4652 

1018 DATA 149,0,232,208,251,32,181,68, 

,32,219,69,169,18,141,288,2,6346 

1028 DATA 169,138,141,196,2,169,18,141 

1, 198, 2, 169, 68, 141, 197, 2, 169, 6688 

1838 DATA 248,141,199,2,168,2,169,8,14 

45,88,32,129,74,32,109,66,2346 

1848 DATA 32,28,75,32,228,67,169,16,14 

41,111,2,169,8,141,8,218,4281 

1858 DATA 169,3,141,15,218,169,16,133, 

,137,169,88,133,138,169,9,133,6778 

1868 DATA 175,32,18,73,169,8,32,185,69 

9, 165, 196, 248 , 11, 198 , 175, 288 , 9729 

1878 DATA 7,169,9,133,175,32,71,73,165 

5,188,248,3,32,252,71,165,7732 

1080 DATA 191,240,3,32,89,66,165,198,2 

248,28,281,4,208,5,169,8,5332 

1898 DATA 76,88,67,281,8,288,5,169,1,7 

76,80,67,208,6,165,188,5738 

1188 DATA 248,2,288,34,238,192,32,131, 

,65,169,2,32,254,68,165,192,8168 

1118 DATA 281,68,248,2,288,179,169,0,1 

141, 0, 210, 141, 1, 210, 133, 165, 8315 

1120 DATA 32,91,72,76,94,64,165,188,20 

01,4,240,216,165,165,208,9,167 

1130 DATA 165,192,201,5,144,3,32,51,66 

6,165,162,240,18,169,3,32,3735 

1148 DATA 254,68,169,8,133,192,133,162 

2,173,148,75,281,41,144,181,165,259 

1158 DATA 196,248,13,165,198,248,9,169 

9,1,32,254,68,169,8,133,192,7533 

1160 DATA 173,132,2,240,72,173,120,2,2 

281,15,208,3,76,99,64,281,5650 

1178 DATA 7,208,27,32,131,65,165,188,2 

248,5,169,3,32,254,68,173,7371 

1188 DATA 147,75,281,285,248,36,169,2, 

,32,185,69,76,99,64,201,11,3898 

1198 DATA 288,24,32,131,65,165,188,240 

0,5,169,3,32,254,68,173,147,7978 

1288 DATA 75,281,45,240,5,169,1,32,105 

5,69,76,99,64,173,120,2,2819 

1210 DATA 201,11,208,18,169,32,133,194 

4, 169, 9, 133, 284, 208, 92, 201, 7, 8258 

1220 DATA 288,8,169,8,133,194,133,204, 

,240,80,201,10,208,10,169,128,9061 

1230 DATA 133,194,169,27,133,204,208,6 

66,201,6,208,10,169,64,133,194,8708 

1240 DATA 169,18,133,204,208,52,76,99, 

,64,162,8,168,0,280,208,253,9428 

1258 DATA 165,180,240,7,134,149,32,252 

2,71,166,149,165,196,240,7,134,402 

1268 DATA 149,32,71,73,166,149,232,224 

4, 9, 288, 226, 96, 24, 165, 132, 105, 9199 

1270 DATA 20,133,132,165,133,105,0,133 

3, 133, 96, 169, 3, 133, 195, 164, 204, 9206 

1288 DATA 185,191,75,133,286,200,185,1 

191,75,133,207,200,185,191,75,133,2671 

1 

1290 DATA 208,165,196,240,3,32,71,73,1 

165,188,240,3,32,252,71,165,8274 

1388 DATA 287,32,254,68,173,147,75,281 

1, 45, 288, 3, 76, 158, 64, 173, 147, 7812 

1310 DATA 75,201,205,208,3,76,158,64,1 

165, 208, 32, 185, 69, 165, 190, 240, 397 

1320 DATA 18,201,4,208,5,169,0,76,88,6 

67,201,8,208,19,169,1,3449 

1338 DATA 76,88,67,165,188,240,10,165, 
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,165,208,3,32,51,66,76,192,5978 

1348 DATA 64,165,191,240,3,32,89,66,19 

98, 206, 208, 165, 230, 204, 230, 204, 5295 

1350 DATA 230,204,198,195,208,136,76,9 

99, 64, 169, 1, 133, 165, 169, 180, 141, 9882 

1360 DATA 0,210,169,175,141,1,210,133, 

,177,169,15,133,176,96,169,1,7459 

1370 DATA 133,164,169,250,133,178,141, 

,2,210,169,239,141,3,210,96,32,8906 

1388 DATA 72,66,32,8,72,169,100,133,15 

52,169,8,133,153,133,191,32,6732 

1390 DATA 223,72,96,169,1,133,166,169, 

,0, 133, 169, 133, 167, 165, 170, 248, 1694 

1408 DATA 252,169,8,133,178,169,1,133, 

,169,165,170,240,252,169,1,133,1163 

1410 DATA 167,169,0,133,166,169,44,141 

1,198,2,168,0,185,138,76,145,7086 

1420 DATA 88,288,192,34,208,246,173,13 

32,2,288,251,169,0,133,167,133,785 

1430 DATA 161,32,228,67,32,18,73,96,32 

2,8,72,169,1,133,161,173,4488 

1440 DATA 135,75,201,1,208,249,169,1,1 

133,166,133,169,169,0,133,200,9797 

1450 DATA 133,199,165,199,201,4,208,25 

50,169,1,133,171,165,199,201,5,829 

1460 DATA 208,258,169,8,133,171,165,19 

99,201,23,208,258,169,8,133,166,1288 

1470 DATA 133,169,169,1,133,167,160,0, 

,169,3,141,141,75,141,189,75,7817 

1480 DATA 169,138,141,149,75,141,150,7 

75,169,180,141,152,75,169,0,133,7964 



80 COL SCREENI-NEW PRICES! 



Turbobase. ^isras"^ 

"IBM power without the price. . . I really can't think of any feature associated with running 
a business that has been left out~except for the huge prices charged for comparable 
software on MS-DOS computers." -ANTIC, Dec. '87 

"...the most time consuming review! have ever done, due to the number of features... 
Turbobase finally gives what 8-bit owners have been clamoring for for years; true, power- 
ful business software ... set up a fully capable business system for less than $1 ,000. . . 
customer support is superb. . . Practicality-excellent. Documentation-excellent." 

-COMPUTER SHOPPER, Aug. '87 
". . .one of the most powerful and versatile database programs available. . . " 

-COMPUTER SHOPPER, Aug. 88 



COMPARE TO IBM CLONES: 



• Capability 

• Capacity 

• Remote Terminals 

• Exhaustive Support 

• No Disk Switching 

• Tiny Footprint 

• Not Ckjpy Protected 



• Complete Documentation 

• $20-i50Customizations 

• One package/all modules 

• All Hardware Upgrades 

• Brand Name Hardware 

• True Integration 

• Free Application Set-up 

Tufbotwst.' lakes S20.000 video store sale from IBM . S.V. Plainfield. NJ 
Tufbobuise lakes S^O.OOO IBM sale lor waicrbedslofc A J, Phoenix, A Z 
Tujbobasc replaces S3 7.000 air conditioning application... A.B.AIlon, NH 
Uniil you have Turbobase you don't have a database!. ..Acorn Users Group 



• Speed among thousands of records 

• Ease of learning (per feature) 

• Number of English error messages 

• Adaptability to Existing Application 

• Hardware/DOS easier than Clone/MS DOS'" 

• Faster Back-up to inexpensive floppy 

• Complete Invoice/Payments Error Checking 



Micromiser is looking for resellers. If you have 2 DD drives, or an MIO '" , or hard disk, You quah 
ify for free training, dealerprices, market I nq/direct mail lietp. and myriad customer references 
who express extreme satisfaction with Turbobase. Compare the Turbobase '"/MIO'" configu- 
ration at $830 (all hardware & software except printer) with the IBM AT'" : Immediate RAM 
access to 6,000 invoices, or 1 5,000 inventory items, or 50,000 G/L records, or 20,000 payroll 
records, or any combination of above! With a hard drive (add only $100) the figures go up! 
4,000 addresses too! An unbeatable selling point: replace any component for the cost of a 
typical IBM'"/Apple"' repair bill! The small tiusiness market is yours! Just ask, "Is IBM " 
compatibility worth $20,000 to you?" 



TUflflOfl4S£'" — the a///n one database/business system: 3 databases + word processor 
includes file manager/spread sheet/relational features/accounting/report generator, G/L, 
P/S, AR, AP, open invoicing/statements, inventory, payroll, mailing, utilities, all truly integrated 
in one program/manual so simplified that we can present complete detailed instructions tn 
only 700 I pages of superb documentation (third re-write) includes separate Quick Course 
and Cookbook i 8 disk sides. Runs on any 48K 8-bit Atari, only 1 drive req. Call todayl 



Turbob.ise S 1 59-Turbo Jr S99 
For XEP— 80 col. screen: 

Turbobase 80 S179-Jr80 SI 19 
w/80 col woid processor add %2^ 

80 COL WORD PROCESSOR $49 



STownerslAskaboutUltrabase ST (B/W mon- 
itor only) all Turbobase features + much more 
+ Ultimate SIMPLICITY and speed 

(407) 857-6014 



IVilCROIVllSER SOFTWARE, 1635-A HOLDEN AVE., ORLANDO, FL 32809 



CIRCLE #107 ON REAOER SERVICE CARO. 
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Cra^y Clown Jumper 



1498 DftTft 128,169,182,133,129,162,2,32 

2, 204, 69, 169, 1, 133, 173, 141, 177, 8176 

1588 DftTft 75,32,193,74,169,17,141,186, 

,75,169,32,141,188,75,169,8,6374 

1518 DftTfl 133,196,133,185,133,186,141, 

,176,75,169,188,141,153,75,169,255,216 

61 

1528 DftTfl 141,184,75,141,185,75,169,18 

8,141,154,75,169,8,133,156,133,7448 

1538 DftTft 157,133,158,76,148,66,178,16 

69,8,133,192,138,248,22,169,3,7518 

1548 DATft 285,190,75,248,3,76,233,64,2 

230,197,208,0,169,2,141,190,9632 

1550 DATA 75,76,233,64,169,2,205,190,7 

75,240,3,76,233,64,238,197,1091 

1560 DftTft 165,197,201,2,248,2,208,36,1 

169,8,133,197,238,186,75,173,625 

1570 DATA 186,75,201,26,208,5,206,186, 

,75,208,17,32,174,67,32,13,3827 

1580 DATA 68,169,244,133,152,169,1,133 

3, 153, 32, 223, 72, 169, 3, 141, 190, 8583 

1590 DATA 75,76,233,64,160,0,185,11,76 

6,145,88,280,192,40,208,246,569 

1600 DATA 206,186,75,160,17,173,186,75 

5,145,88,169,1,133,161,32,8,4715 

1610 DATA 72,169,15,133,198,160,0,162, 

,0,200,208,253,232,208,250,198,6013 

1620 DATA 198,208,246,238,186,75,169,8 

8,133,161,168,0,185,227,75,145,82 

1630 DATA 88,200,192,40,208,246,172,18 

87, 75, 173, 186, 75, 145, 88, 173, 189, 2157 

1640 DATA 75,240,15,162,0,160,30,169,3 

3,145,88,200,232,236,189,75,610 

1650 DATA 208,247,96,173,186,75,201,17 

7,240,42,201,18,288,5,169,1,6587 

1668 DATA 133,196,96,201,19,208,13,286 

6,141,75,169,1,133,185,133,186,9539 

1670 DATA 32,105,68,96,281,20,208,4,32 

2,105,68,96,281,21,208,4,4442 

1688 DATA 32,105,68,96,281,22,288,16,3 

32, 185, 68, 206, 141, 75, 238, 189, 9266 

1698 DATA 75,238,188,75,32,248,67,96,2 

201,23,208,3,32,105,68,201,6475 

1700 DATA 24,208,4,32,185,68,96,281,25 

5,288,3,32,185,68,96,56,2868 

1718 DATA 173,184,75,233,25,141,184,75 

5,141,185,75,56,173,153,75,233,127 

1728 DATA 5,141,153,75,24,173,154,75,1 

105,10,141,154,75,96,162,96,6331 

1730 DATA 169,12,157,66,3,32,86,228,96 

6,162,96,169,3,157,66,3,4134 

1748 DATA 169,12,157,74,3,169,8,157,75 

5,3,169,178,157,68,3,169,5427 

1750 DATA 68,157,69,3,32,86,228,96,83, 

, 58, 155, 169, 8, 133, 128, 169, 6937 

1768 DATA 80,133,129,169,0,133,130,169 

9,224,133,131,160,0,162,2,177,8066 

1770 DATA 130,145,128,200,208,249,230, 

,129,230,131,202,208,242,169,8,133,448 

88 

1788 DATA 128,169,80,133,129,160,0,185 

5,58,75,145,128,200,192,16,208,9362 

1790 DATA 246,162,8,189,98,75,145,128, 

,200,232,224,8,208,245,169,88,2724 

1800 DATA 141,244,2,96,201,0,240,101,2 

201,1,240,15,201,2,240,50,7992 

1810 DATA 201,3,208,6,169,1,133,163,20 

08,1,96,172,148,75,162,12,6349 

1820 DATA 177,139,136,145,139,200,200, 

,202,208,246,24,173,148,75,185,10,9555 

5 

1830 DATA 168,162,4,177,141,136,145,14 

41,288,200,202,208,246,286,148,75,4726 

6 

1848 DATA 208,84,24,173,148,75,185,11, 

,168,162,12,177,139,200,145,139,9387 

1858 DATA 136,136,202,208,246,24,173,1 

148,75,105,13,168,162,4,177,141,8422 

1860 DATA 208,145,141,136,136,202,208, 

, 246, 238, 148, 75, 208, 41, 240, 39, 201, 3270 




a 

1870 DATA 0,240,35,201,1,240,5,201,2,2 

240,15,96,286,147,75,173,8711 

1888 DATA 147,75,141,8,208,141,1,288,2 

208,12,238,147,75,173,147,75,9333 

1898 DATA 141,8,208,141,1,208,165,163, 

,248,5,169,8,133,163,96,32,6963 

1900 DATA 131,65,169,0,133,190,133,188 

8,173,13,288,133,190,173,5,208,774 

1910 DATA 133,188,162,8,189,8,288,248, 

,4,133,191,288,5,232,224,4,9974 

1928 DATA 288,242,169,0,141,30,208,96, 

,169,8,133,128,169,180,133,129,8484 

1930 DATA 162,2,160,0,169,0,145,128,20 

00,208,251,238,129,282,288,246,6422 

1948 DATA 96,168,11,162,78,169,7,32,92 

2,228,173,48,2,133,128,173,6869 

1958 DATA 49,2,133,129,168,6,169,0,145 

5,128,200,145,128,168,8,169,8190 

1968 DATA 38,145,128,200,192,29,288,24 

49,165,88,133,132,165,89,133,133,980 

1970 DATA 96,165,167,240,3,76,249,71,2 

206,140,75,208,27,169,8,133,8059 

1988 DATA 77,173,141,75,141,148,75,169 

9,1,133,147,133,162,230,282,165,2896 

1998 DATA 282,281,8,248,6,141,5,212,76 

6,194,71,32,166,65,32,166,6178 

2800 DATA 65,165,132,133,135,165,133,1 

133, 136, 169, 0, 133, 202, 141, 5, 212, 9568 

2810 DATA 32,166,65,160,0,162,0,177,13 

32,145,135,200,192,20,208,247,1968 

2020 DATA 24,165,135,105,20,133,135,16 

65, 136, 105, 0, 133, 136, 32, 166, 65, 5978 

2030 DATA 160,0,232,224,22,208,224,165 

5,171,240,2,208,82,165,166,240,4191 

2040 DATA 94,165,169,208,49,160,0,166, 

,200,189,62,76,201,128,240,7,9737 

2850 DATA 145,135,288,238,280,208,248, 

,192,8,208,18,169,0,168,145,135,354 

2868 DATA 288,192,20,208,249,238,199,2 

230,208,165,199,201,7,208,4,169,3212 

2878 DATA 1,133,178,76,186,71,160,0,16 

69,0,145,135,200,192,20,208,9279 

2080 DATA 249,230,199,165,199,201,20,2 

208,234,169,1,133,178,288,228,160,4556 

6 

2898 DATA 0,185,124,76,145,135,288,192 

2, 14, 288, 246, 230, 199, 208, 212, 206, 7254 

2100 DATA 135,75,240,3,76,100,71,173,1 

142,75,16,19,169,4,133,160,5218 

2118 DATA 169,16,133,159,173,142,75,73 

3,128,141,142,75,76,9,71,169,6879 

2128 DATA 5,133,168,169,17,133,159,173 

3,142,75,73,128,141,142,75,162,8832 

2138 DATA 0,169,0,157,0,6,232,224,40,2 

208,248,164,168,173,18,210,1696 

2140 DATA 205,153,75,176,54,173,10,210 

0,41,3,170,189,143,75,153,0,6379 

2150 DATA 6,169,130,153,20,6,169,0,153 

3,40,6,165,180,208,28,165,6958 

2168 DATA 161,288,24,173,18,218,285,15 

54,75,176,16,185,155,75,133,182,281 

2178 DATA 169,1,133,188,132,146,32,52, 

,72,164,146,288,280,196,159,208,2987 

2180 DATA 188,169,0,133,201,169,3,141, 

,135,75,166,201,160,0,189,8,7524 

2198 DATA 6,145,135,288,232,192,20,208 

8, 245, 24, 165, 281, 105, 20, 133, 201, 1335 

2200 DATA 206,137,75,208,59,169,5,141, 

, 137, 75, 166, 203, 160, , 189, 66, 8425 

2210 DATA 75,145,137,232,200,192,8,208 

8,245,173,134,75,281,8,240,18,596 

2220 DATA 165,203,201,24,240,7,24,105, 

,8,133,203,16,19,206,134,75,5908 

2238 DATA 240,14,165,203,240,7,56,233, 

,8,133,203,16,3,238,134,75,7711 

2248 DATA 165,88,133,132,165,89,133,13 

33, 165, 165, 248, 28, 198, 176, 240, 14, 1835 

2250 DATA 165,177,41,240,5,176,141,1,2 

210,133,177,76,226,71,169,0,8474 

MAY A.N.A.L.O.Q. Computing 
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2268 DATA 141,8,216,141,1,218,133,165, 

, 165, 164, 240, 19, 56, 165, 178, 233, 2548 

2278 DATA 18,133,178,141,2,218,288,7,1 

169,8,133,164,141,3,218,76,7619 

2288 DATA 98,228,165,147,248,28,198,18 

81,165,181,281,48,208,21,169,8,9638 

2298 DATA 133,188,169,8,133,128,169,99 

9,133,129,168,8,152,145,128,288,71 

2388 DATA 288,251,96,169,13,141,175,75 

5, 164, 181, 169, 8, 133, 128, 169, 99, 9495 

2310 DATA 133,129,32,253,73,169,8,133, 

, 147, 96, 169, 8, 133, 128, 169, 99, 8834 

2328 DATA 133,129,168,208,132,181,162, 

, 8, 189, 51, 76, 145, 128, 288, 232, 224, 3218 

2338 DATA 11,208,245,164,182,162,4,152 

2,157,3,208,200,208,282,208,247,5985 

2348 DATA 96,172,148,75,162,8,189,122, 

, 75, 145, 139, 208, 232, 224, 12, 288, 2347 

2358 DATA 245,169,175,141,1,218,169,8, 

,133,168,32,131,65,169,2,32,5824 

2368 DATA 254,68,238,168,165,168,141,8 

8,210,173,148,75,281,258,208,234,6857 

2370 DATA 169,0,172,188,75,145,88,206, 

,188,75,206,189,75,173,189,75,1724 

2388 DATA 201,255,208,13,169,0,141,8,2 

210, 141, 1, 218, 133, 191, 32, 178, 9161 

2390 DATA 66,169,65,141,147,75,56,173, 

, 149, 75 , 233, 12 , 141, 148, 75 , 169, 9846 

2480 DATA 8,133,197,133,192,169,3,141, 

,190,75,133,183,169,45,141,151,389 

2418 DATA 75,32,194,69,32,232,74,32,28 

0,75,169,0,141,1,218,141,5775 

2420 DATA 8,210,133,191,96,169,0,133,1 

158,133,151,162,15,24,6,152,5899 

2430 DATA 38,153,248,165,158,101,158,1 

133,158,165,151,181,151,133,151,216,38 

867 

2448 DATA 282,16,235,24,248,165,158,18 

81,158,133,158,165,157,181,151,133,188 

81 

2450 DATA 157,165,156,105,0,133,156,21 

16, 172, 139, 75, 136, 162, 0, 200, 181, 848 

2468 DATA 156,72,41,240,74,74,74,74,9, 

,16,145,88,184,41,15,9,954 

2470 DATA 16,200,145,88,232,224,3,288, 

,229,172,139,75,162,3,177,88,283 

2480 DATA 201,16,208,8,169,0,145,88,28 

00,282,208,242,96,206,182,75,3807 

2498 DATA 208,86,169,0,133,128,169,102 

2, 133, 129, 173, 184, 75, 141, 182, 75 , 286 

2500 DATA 173,176,75,240,37,238,149,75 

5,173,149,75,281,280,208,7,169,2071 

2510 DATA 0,141,176,75,240,234,24,173, 

,149,75,105,3,168,32,11,74,5039 

2520 DATA 165,185,248,3,32,25,74,76,16 

62, 73, 206 , 149 , 75, 173, 149, 75 , 8297 

2538 DATA 201,50,208,7,169,1,141,176,7 

75,208,197,172,149,75,32,253,1230 

2540 DATA 73,165,185,240,3,32,25,74,20 

06, 183, 75, 248, 1, 96, 173, 185, 9733 

2558 DATA 75,141,183,75,169,8,133,128, 

,169,103,133,129,173,177,75,240,1818 

2568 DATA 35,238,158,75,173,150,75,201 

1,200,208,7,169,0,141,177,75,9533 

2578 DATA 248,234,24,173,158,75,105,3, 

, 168, 32, 11, 74, 165, 186, 240, 3, 7239 

2580 DATA 32,77,74,96,206,150,75,173,1 

150,75,281,50,208,7,169,1,7475 

2598 DATA 141,177,75,208,199,172,158,7 

75,32,253,73,165,186,240,3,32,9755 

2680 DATA 77,74,96,174,175,75,177,128, 

,136,145,128,288,200,202,208,246,6363 

2610 DATA 96,162,6,136,177,128,280,145 

5, 128, 136, 136 , 202, 288 , 246 , 96 , 206, 5121 

2620 DATA 180,75,240,1,96,173,178,75,1 

141,188,75,165,183,240,20,238,2759 

2638 DATA 151,75,173,151,75,281,46,288 

8,6,169,0,133,183,240,236,141,2496 

2640 DATA 2,208,96,286,151,75,173,151, 

,75,201,19,208,242,169,1,133,839 

MAY A.N.A.L.O.Q. Computing 
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2658 DATA 183,208,216,206,181,75,248,1 

1, 96, 173, 179, 75, 141, 181, 75, 165, 1359 

2668 DATA 184,248,28,206,152,75,173,15 

52,75,281,179,208,6,169,0,133,9567 

2670 DATA 184,240,236,141,3,208,96,238 

8,152,75,173,152,75,281,201,288,4422 

2688 DATA 242,169,1,133,184,208,216,16 

69,96,141,7,212,169,3,141,29,8548 

2690 DATA 208,169,62,141,47,2,169,0,13 

33,128,169,99,133,129,160,0,6875 

2700 DATA 162,6,152,145,128,200,208,25 

51,230,129,202,208,246,159,0,133,4984 

2718 DATA 139,169,100,133,140,169,0,13 

33,141,169,101,133,142,169,70,141,9981 

1 

2728 DATA 192,2,169,132,141,193,2,169, 

,0,133,128,169,182,133,129,172,9821 

2730 DATA 149,75,162,3,169,255,145,128 

8,200,202,208,250,230,129,172,150,6825 

5 

2748 DATA 75,162,3,145,128,208,282,208 

8,258,165,173,248,1,96,172,148,3634 

2758 DATA 75,162,8,189,186,75,145,139, 

,208,232,224,12,208,245,136,136,4890 

2768 DATA 189,106,75,145,141,200,232,2 

224,16,208,245,169,8,141,8,288,1536 

2778 DATA 141,1,288,141,2,288,141,3,28 

88,96,173,147,75,141,8,288,9146 

2780 DATA 141,1,208,173,151,75,141,2,2 

288,173,152,75,141,3,208,169,328 

2798 DATA 3,141,18,288,141,11,208,169, 

,118,141,194,2,141,195,2,96,8275 

2880 DATA 68,126,255,255,251,243,126,2 

24,24,24,48,48,96,192,96,48,6388 

2810 DATA 24,48,24,48,24,48,96,48,24,1 

12,24,12,24,12,6,12,6164 

2828 DATA 24,12,12,12,6,3,6,12,24,36,2 

24,126,153,60,36,102,491 

2838 DATA 8,24,36,24,126,231,189,165,6 

68,68,102,0,0,102,102,0,2961 

2848 DATA 8,24,165,153,255,182,68,36,6 

68,68,102,0,1,1,0,5,8959 

2858 DATA 0,8,3,3,128,1,65,1,193,65,18 

88,130, 138, 45, 180, 100, 5751 

2868 DATA 18,0,0,0,0,80,88,96,184,112, 

,128,128,136,144,152,168,8270 

2870 DATA 168,176,0,0,0,13,0,1,10,10,1 

10,18,255,255,255,255,8686 

2888 DATA 17,22,32,3,3,4,1,2,8,8,2,4,2 

2,2,4,1,3383 

2898 DATA 1,8,0,1,4,2,1,12,1,2,8,8,2,1 

12,2,2,3419 

2908 DATA 12,1,1,8,8,1,12,2,1,8,0,51,3 

35,47,50,37,6131 

2910 DATA 26,0,0,0,0,0,8,0,8,44,37,54, 

,37,44,8,8,5528 

2928 DATA 8, 8, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0» 0# 0* 
292B 

293o'dATA 8,0,0,0,0,0,8,10,18,18,18,0, 

,44,37,54,37,5802 

2948 DATA 44,0,0,8,35,47,45,48,44,37,5 

52,37,36,0,10,10,6700 

2950 DATA 18,18,8,8,0,0,8,0,0,24,24,60 

8,102,48,24,12,6754 

2968 DATA 102,60,24,24,0,0,0,0,35,50,3 

33,58,57,8,35,44,7194 

2970 DATA 47,55,46,128,128,0,0,0,0,0,0 

0,8,42,53,45,48,7148 

2988 DATA 37,58,128,128,8,0,0,0,0,0,0, 

,0,0,34,57,128,7392 

2998 DATA 128,8,8,0,0,34,50,33,36,0,52 

2,41,45,45,41,46,7898 

3000 DATA 51,128,8,8,8,0,0,39,33,45,37 

7,0,47,54,37,50,7495 

3010 DATA 0,0,8,8,8,48,58,37,51,51,8,5 

52,48,37,8,38,7183 

3020 DATA 41,50,37,34,53,52,52,47,46,0 

8,52,47,0,51,52,33,8297 

3030 DATA 50,52,226,2,227,2,0,64,0,0,0 

0,0,0,0,0,0,5529 f1 
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by Clayton Walnum 



BASIC Editor II is a utility to help you 
enter BASIC program listings pub- 
lished in ANALOG Computing. To 
simplify the identification of errors, 
each program line is evaluated im- 
mediately after it's typed, eliminating the 
need for cumbersome checksum listings. 
When you've finished entering a program us- 
ing BASIC Editor n, you can be certain it 
contains no typos. 

An option is provided for those who wish 
to use standard BASIC abbreviations. Also, 
the program retains all Atari editing features. 
Finally, for those who prefer to type programs 
the conventional way, using the built-in edi- 
tor, a post-processing mode is available. It al- 
lows you to check typing after the entire 
listing has been entered. 

Typing in the Editor 

To create your copy of BASIC Editor II, 
follow the instructions below— exactly. 

Disk version: 

(1) Type m Listing 1, then verify your work 
with Unicheck (see Issue 39). 

(2) Save the program to disk with the com- 
mand SAVE "D-.EDITORU.BAS". 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2, then verify your work 
with Unicheck. 

(5) Run the program (after saving a back- 
up copy) and follow all the on-screen 
prompts. A data file will be written to your 
disk. 

(6) Load Listing 1 with the command 
LOAD "EDIWRU.BAS". 

(7) Merge the file created by List- 
ing 2 with the command ENTER 
"D.ML.DAT". 

BO 



(8) Save the resultant program with the com- 
mand LIST "D.EDimRII.LSr". 

Cassette version: 

(1) Type in Listing 1 and verify your work 
with Unicheck. 

(2) Save the program to cassette with the 
command CSAVE. (Do not rewind the 
cassette.) 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2 and verify your work 
with Unicheck. 

(5) Run the program and follow the on- 
screen prompts. A data file will be written to 
your cassette. 

(6) Rewind the cassette. 

(7) Load Listing 1 with the command 
CLOAD. 

(8) Merge the file created by Listing 2 with 
the command ENTER "C:". 

(9) On a new cassette, save the resultant pro- 
gram with the command LIST "C". 

Using the Editor 

Take a look at one of the BASIC program 
Ustings m this issue. Notice that each program 
line is preceded by a two-letter code. This code 
is the checksum for that line; it's not a part 
of the program. 

To enter a program listing from the maga- 
zine, load BASIC Editor n with the ENTER 
command, and run it. You'll be asked if you 
wish to allow abbreviations (see your BASIC 
manual). If you do, fype Y and press 
RETURN. Otherwise, fype A^. 

Note: If you set BASIC Editor n to allow 
abbreviations, the program will run slightly 
slower. 

Your screen will now be divided into two 
"windows." The upper window will display 
each line after it's processed, as well as the 



checksum generated for that line. The lower 
window is where program lines are typed and 
edited. 

When the program's waiting for input, the 
cursor will appear at the left margin of the fyp- 
uig window. Type a program line and press 
RETURN. The Ime will be evaluated and 
reprinted in the message window, along with 
the checksum generated. 

If the checksum matches the one in the 
magazine, then go on to the next program line. 
Otherwise, enter the command E (edit) and 
press RETURN. The hne you just typed will 
appear in the typing window, where you may 
edit it. When you think the line has been cor- 
rected, press RETURN, and it'll be 
reevaluated. 

Note: You may call up any Une previously 
typed, with the command E followed by the 
number of the line you wish to edit. For ex- 
ample, E230 will print Line 230 in the typ- 
ing window. Do not attempt to edit any 
program lines numbered 32600 and higher. 
These lines M within the BASIC Editor n 
program. 

If you're using BASIC abbreviations, the 
two versions of the command E work slightly 
differently. The conunand E, without a Une 
number, will call up the line exactly as you 
typed it. When you append the line number, 
the line will be printed in its expanded (un- 
abbreviated) form. 

Leaving the Editor 

You may leave BASIC Editor n at any time, 
by entering either B (BASIC) or Q (quit). If 
you type B, the Editor will return you to BAS- 
IC. Enter LIST to review your work, if you 
wish. Note that Unes 32600 and above are the 
Editor program. Your work will appear be- 
fore these Unes. To return to the Editor, type 
GOTO 32600. 

Type Q, and you'll be asked if you really 
want to quit. If you type Y, the Editor pro- 
gram will be erased from memory, and you 
may then save your work in any manner you 
like. If you type N, the Q command will be 
aborted. 

Large listings 

If the program you're entering is particu- 
larly long, you may need to take a break. 
When you want to stop, type Q and press 
RETURN, then save your work to disk or cas- 
sette. When you're ready to start again, load 
the program you were working on, then load 
BASIC Editor E with the ENTER command. 
Type GOTO 32600, and you're back m 
business. 

MAY A.N.A.I..O.a. Computing 



The post-processor 

Many people may not want to use BASIC 
Editor n when entering a program listing, 
preferring, instead, the Atari's built-in editor. 
For that reason, BASIC Editor II will allow 
you to check and edit your programs after 
they've been typed. 

To take advantage of this option, type any 
magazine program in the conventional man- 
ner, then save a copy to disk or cassette (just 
in case). With your typed-in program still in 
memory, load BASIC Editor n with the 
ENTER command, then type GOTO 32600. 

Respond with N to the "abbreviations" 
prompt. When the Editor appears on your 
screen, enter the command P (post-process), 
and the first program line will appear in the 
typing window. Press RETURN to enter it into 
the Editor. 

The line will be processed, and the check- 
sum, along with the program line, will be 
printed in the upper window. If the checksum 
matches the one in the magazine, press 
RETURN twice, and the next line will be 
processed. 

If you find you must edit a line, enter the 
command E, and the line will be moved back 
to the typing window for editing. 

When the entire listing has been checked, 
you'll be asked if you wish to quit. Type Y 
and press RETURN. The Editor program will 
be removed from memory, and you may then 
save the edited program in any manner you 
wish. 

Murphy's Law 

Anyone who's been associated with comput- 
ing knows this is the industry Murphy had in 
mind. You may find that, after typing a pro- 
gram with BASIC Editor H, it still won't run 
properly. There are two likely causes for this. 

First, it may be that you're not following the 
program's instructions properly. Always read 
the article accompanying a program before at- 
tempting to run it. Failure to do so may present 
you with upsetting results. 

Finally, though you can trust BASIC Edi- 
tor n to catch your typos, it can't tell you if 
you've skipped some lines entirely. If your 
program won't run, make sure you've typed 
all of it. Missing program lines are guaran- 
teed trouble. 

One last word: Some people find it an un- 
necessary and nasty chore to type REM lines. 
I don't condone the omission of these lines, 
since they may be referenced within the pro- 
gram (a bad practice, but not unheard of). If 
you want to take chances, BASIC Editor n is 
willing to comply. 



When you 've finished entering a 

program using BASIC Editor 11, you 

can he certain it contains no typos. 



Listing 1. 
BASIC lisUng. 



32608 IF FL THEN 32616 

32602 DIM LS(HS),SVSC115>,C2SC21,BStl 

15), MS (119 J, 5S (98), ES 1631,(1$ 111 !FL = 1I5 

TMTOB=PEEK (136) tPEEK (1371 »256 

32604 GRAPHICS OlPOKE 710, : P=B : ABRrO : 

? "ALLOM ABBREUIOTIOHS"; IINPUT ASllF A 

S="V" OR AS="y" THEM ABR=1 

32606 BS(1J=" "!BSC11S)= B$ (21 =B$ 

32616 OPEM «17,4,0,"E1"1L$=" "IGOSUB J 

2662;5TART=0 

32618 POKE 766,1!P0KE 83, 39 ; POSITION 1 

,3:IF LEH(L$1<39 THEM ? L$ ! GOTO 32624 

32620 IF LEH(LS)<77 THEM ? L$(l,38):? 

LS[39,LEM(LS1] IGOTO 32624 

32622 ? LSC1,381!? LS(39,761I? L$(77,L 

EN(L$)1 

32624 POKE 752,0:P0KE 76S,0:P0KE 559,3 

4:P0KE 82,1:P0KE 83, 38 ! POSITION 0,101? 

" ";:INPUT tll7;LS!P0KE 766,1 
32626 IF (LS="P" OR LS="P"1 AND START= 
THEN P=l!LS="" 

32628 IF LS="E" OR L$="e" THEM E=1IP05 
ITION 1,10!? SUS GOTO 32624 
32636 IF L$="n" UR L*="q" THEN 32699 
32632 IF LS="" and P=1 THEN 32686 
32634 IF tS="" THEN 32624 
32636 IF LS="B" OR L$="b" THEN GRAPHIC 
S 8!? "TYPE 'GOTO 32600' TO CONTINUE"! 
END 

32638 IF L$(1,1)="E" OR LS(l,ll="e" TH 
EN E=1ITRAP 32624!EL=gAL(LS(2)l 1P05ITI 
OH 1,9:LIST ELiCOTO 32624 
32640 5US=L$1TRAP 32624 ! X=UAL (LSI 
32642 5TART=llIF P AND NOT E THEN 326 
52 

32644 GOSUB 32674:IF NOT ABR OR P THE 
N 32652 

32646 POKE 766,0!? CHRS (1251 : POSITION 
0,3!L=U0L(LS1 !LI5T LI? I? I? "CONT"IL» 
= BS 

32648 POSITION 0,0:POKE e42,13:ST0P 
32650 POKE 842, 12 ! A::USR (ADR (SSl , ADR (L$ 
1,41 !L$=LS(1,A1 

32652 CHKSUM=USR(ADR(MS1 ,ADR(L$) ,LEN(L 
511 lCHKSUM=CHK5UMtPEEK{lS4 2Ht65536 
32654 CHK = CHKSUM-(INT(CHKSUM/6 76))<67B1 
;HI=IMT(CHK/251 : LO=CHK- (HI»261 !C2S(1I= 
CHR$CHIt651 lC2$(21=CHRS(L0t651 
32656 IF MOT P OR E THEM E=:e:GOSUB 32 
662:IF NOT P THEN 32660 
32658 POKE 83,39!P0KE 752,llF0H K=3 TO 

5:P0S1TI0N 1,X!? B$(1,3B) IPOSITION 1, 
X+7!? BS(1,381 iNEKT X!POKE 83,38 
32660 POKE 766,1:P0KE 83, 38 : POSITION 6 
,7:? C2S:P0KE 752,0IG0T0 32616 
32662 GOSUB 327021P0KE 766,0:P0KE 752, 
1!? "IS"1P0KE B2,l!DL=PEEK(S601+256»PEE 
K(5611*4 

32664 POKE DL-l,7e!P0KE 0Lt2,6IP0KE OL 
«3,112!P0KE DLt4,112lP0KE DLt5,112IP0K 
E DL+13,112:P0KE 0Ltl4,llZ 
32666 POKE DLt22, 112 IPOKE DL+23,112lP0 
KE DL + 24,65!P0KE DLt25, PEEK (560) 1 POKE 
DLt26,PEEK(5611 !POKE 83 ,39 
32668 POSITION 20,01? ••*— 
mM"!P0SITI0M 0, 7!' ■ 

H:n;n:iTi;i!i 

32670 POSITION 0,1! 

III! IIJII I^MJi— 1.7 




32672 POKE 559, 34 I RETURN 

32674 GRAPHICS 0!POKE 559,e:P0KE 766,1 

!POKE 62,B!P0KE 83, 39 ! POSITION 0,31? L 

Si? I? I? !? "C0MT"IP05ITI0N 0,8 

32676 POKE 842,1315T0P 

32678 POKE e42,12:TRAP 32682 ! A=USR (ADR 

(ES),UAL(LSl> IIF A=4 THEN POP IGOTO 32 

32680 RETURN 

32682 GOSUB 32662!S0UND 8, 75, 10, 8 : FOR 

K = l TO 20!NEXT X!SOUMD 8, 8, 0, I POSITIO 

N 1,31? "SYNTAX ERRORI"!POKE 766,1 

32684 POKE 83, 38 1 POSITION 1,10!? 3V$!G 

OTO 32624 

32686 LINE=PEEK (5THT0B1 tPEEK tSTMTAB+ll 

»(256!IF LIME>32S99 THEN 32698 

32688 0FS=PEEK(5TMTABt2) 1 STMTAB=STMTA8 

tOFSlPOSITION 1,9!LIST LINElGOTO 32624 

32690 POKE 766, 8 !POSITIOM 1,181? "READ 

Y TO OUIT"JIIMPUT ASlIF A$<>"Y" THEN P 

OSITION 1,181? BS(1,38) iGOTO 32624 

32692 GRAPHICS 81? I? !? iFOR Xr32600 

TO 32636 STEP 2!? K 1 NEXT X!? "COMT"!PO 

SITION 0, OlPOKE e42,13l5T0P 

32694 POKE 84Z, 12 ! GRAPHICS 81? I? 1? I 

FOR X::3263S TO 32674 STEP 2!? XINEXT X 

I? 1? "C0NT"1P0SITI0N 8,8 

32696 POKE 84Z,13!ST0P 

32698 POKE 842 . 12 1 GRAPHICS 81? !? !? I 

FOR X=3Ze76 TO 3278Z STEP Zl? XINEXT X 

I? I? "POKE B42,1Z"1POSITION 8,8 



32789 POKE S42,13!ST0P 

32782 POKE 16,112!P0KE 53774, 112;RETUR 

N 



CHECKSUM DATA. 

(see issue 39's Unicheck] 



32600 DATA 6,665,923,757,809,171,225,8 
98,532,499,918,267,912,144,735,8453 
32638 DATA 97,356,230,693,706,878,317, 
127,36,597,238,258,182,430,168,5315 
32668 DATA 864, 953, 472, 385, 887, 724, 7Z, 
687,908,736,6Z5,612,67Z,1B4,891,967Z 
32698 DATA 8,856,85,949 



Listing 2. 
BASIC listing. 



10 DIM L$ (1201, MLS (1191, AS (11 

20 GRAPHICS OlPOKE 718,0!? "QISK OR QA 

SSETTE"; lINPUT ASlIF A$<>"C" AND ASO" 

D" THEM 20 

30 IF AS="C" THEM 58 

40 ? "PLACE FORMATTED DISK IN DRIUE"!? 
"THEM PRESS RETURN" ! INPUT LSlOPEN Kl, 

8,0,"D!ML.DAV"IG0T0 60 

50 ? I? "READY CASSETTE, PRESS RETURN" 

;1IHPUT LSlOPEM Bl,8,8,"Cl" 

60 LS="32668 MS (11 =" 1 LS (13) =CHR$ 134) 

70 M=119!G0SUB 130 ! LS (141 -MLS (1, 58] ILS 

(LEM(L$1^11=CHR$(341 I? nijLS 

80 LS(11="3261B M$(59)="lLS(14>=CHR$(3 

41 tLS(151=MLS(591 I LS (LEN (LS) -til =CHR$ (3 
4) 1? OljLS 

90 LS(1)="32612 5$=:"!LS(ie>=CHRS(34) 

100 ML$=""lN=98!G0SUB 138 ! LS (11) rHLS ! L 

S(LEN(LS)tl)=CHR$(34) !? ttl;L$ 

110 LS(1)="32614 ES="!LS(10)=CHRS(34) 

128 MLS=""iN=69iG0SUB 138 ! L$ (11) =MLS ! L 

S(LEN(LS)+1)=CHR$(34) !? OllLSlEHD 

130 FOR X = l TO NIREAD A I MLS (X> =CHR$ (A) 

I NEXT XiRETURM 

140 DATA 104,104,133,204,184,133,283,1 

04,104,133,205,169,8,141,3,6,141,2,6,1 

41,4,6,141,5,6 

150 DATA 141,6,6,238,3,6,32,68,218,172 

, 2, 6, 177, 203, 133, Z1Z,3Z, 178, 217, 32, 182 

,221,32,68,218 

160 DATA 173,3,6,133,212,32,178,217,32 

, 219, 218, 32, 218, 217, 165, ZIZ, 141, 8, 8,16 

5,213,141,1,6,24 

170 DATA 173,0,6,109,4,6,141,4,6,173,1 

,6,109,5,6,141,5,6,144,3,238,6,6,238,2 

180 DATA 6,172,2,6,196,Z85,Z08,176,173 

,4,6,133,212,173,5,6,133,213,96 

190 DATA 104,104,133,204,104,133,203,1 

04,184,141,255,6,169,0,133,213,216,165 

,88,133,205,165,89,133,206 

200 DATA 174, 255, 6, 24, 165, Z05, 185, 48,1 

33,205,144,2,230,206,202,208,242,160,0 

,177,205,201,64,144,18 

218 DATA 201,96,144,19,281,128,144,18, 

201,192,144,6,201,224,144,7,176,8,24,1 

85,32,144,3,56,233 

228 DATA 64,145,283,200,192,114,248,2, 

208, 215, 177, 203, 201, 3Z, 288, 3, 136, 208, 2 

47,200,132,212,96 

238 DATA 184,184,141,254,6,104,141,253 

,6,169,0,133,213,216,165,136,133,205,1 

65,137,133,206,160,0,177 

248 DATA 205,205,253,6,288,8,288,177,2 

05,205,254,6,Z40,15,160,Z,177,Z85,Z4,1 

01, 205, 133,205, 144, ZZO 

258 DATA 238, 286,176, ZZ4, 168, 4, 177, Z8S 

,Z81,55,Z48,4,16e,8,Z48,S,13Z,ZlZ,96 



CHECKSUM DATA. 

(see issue 39's Unicheck) 



18 DATA Z03,Z65,4B5,844,294,973,65Z,27 
0, 978, 797, Z78,Z7S, 835, Z99, 301, 7639 
58 DATA 355, 94, Z54,4Z8, 935, 848, 588,41 «._ 
,974,564,5435 tl 
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You Own an Atar 

Why Be Forced to Read a Magazine that 





YOUR ATARI RESOURCE CENTER 

ANALOG Computing continues to offer exciting products for you and your Atari 
Computer. And we're the only magazine for the Atari 8-bit computer line that hasn't 
allowed its content to be virtually taken over by coverage of the Atari ST. We in- 
clude only a minimal amount of ST material so that you can stay informed of what's 
happening with the 8-bit computer's brother. 



Whether you own a reliable ol' 400 or 800, a shiny XL, new XE or 
even an XE Game Machine ... we offer usable utilities, entertaining 
educational software, dynamite disk programs and great graphics 
and games. In fact, our readers still use ANALOG programs that were 

published over five years ago! 



So when software companies turn their 
heads to other computers, you can turn 
yours to the one that supports your 8-bit Atari. And 
that's ANALOG Computing. 

ANALOG'S Best! Over 88 of ANALOG Computing's best and 

most requested programs are now available on this series 

of ten diskettes. The programs are all ready to run and come with complete 

documentation on the flip side of each floppy diskette. Select from Graphics, 

Educational, Utilities 1, Utilities 2, Disk Utilities and Games Disks 1, 2, 3, 4 

and 5. Only $9.95 each (plus $1.50 shipping per order). Specify disk utle 

when ordering. 




Unlock the secrets of your Atari Computer! This handy 1 6-page pocket reference 

card covers information you need when programming your 8-bit. Error codes, internal 

codes, PEEK & POKE locations, machine-language aids, graphic mode specs and BASIC commands 

with abbreviations are only some of the helpful items at your fingertips. 

The ANALOG Computing Pocket Reference Card, only $7.95 each! 

(Plus $1.50 shipping and handling.) 



16502 





uter. 



Devotes^50* of Its Pages to the Atari ST? 



An Atari 8-bit Extra. While other "Atari" 8-bit magazines just make claims on how they 

cover your machine, we come through! Over 130 pages of new, never before published 

material. Programs like Easy Type, Dragon Chase, Pastels, Display List Mod, Tactics, Trivia 

and Create-a-base are all documented and ready to type in and run. . .all for just $8.95! 

(Add SI. 50 for shipping,) 



Get the Extra on disk! This special offer for Extra owners gets you all of the programs 
in an Atari 8-bit Extra on disk. Avoid typing errors, hours of tedious typing and frustration. 
Just plug in the disk and you are ready to roll! Two, ready-to-run double-sided floppies, S24.95. 
(Disks only. Atari 8-bit Extra sold separately. Please add $1.50 for shipping.) From the 



magazine that always gives you something Extra. 
Why let your fingers do the walking when your 
Atari can do the running? Get this issue on 
disk! Every month we offer all of the pro- 
grams in ANALOG Computing on disk . . . 
ready to run. Even if you don't know 
anything about machine language or 
don't own the Action! cartridge, we 
offer programs in converted formats 
so they'll run on your Atari com- 
puter. Get this issue for just 
!12.95 (plus $1.50 
shipping). 
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COMPUTING 



ANALOG COMPUTING OFFICIAL ORDER FORM 



Use this coupon to order the most complete up-to-date products 
specifically designed for your ATARI PC! 

ANALOG'S BEST-Graphics Disk S 9.95 $ 

ANALOG'S BEST-Educatlonal Disk S 9.9S S 

ANALOG'S BEST-Utilltles #1 S 9.95 S 

ANALOG'S BEST-Utllltles #2 S 9.95 S 

ANALOG'S BEST-Dlsk Utilities $ 9.95 S 

ANALOG'S BEST-Games #1 S 9.95 S 

ANALOG'S BEST-Games #2 S 9.95 S 

ANALOG'S BEST-Games #3 S 9.95 S 

ANALOG'S BEST-Games #4 S 9.95 S 

ANALOG'S BEST-Games #5 S 9.95 S 

ANALOG COMPUTING-POCKET REFERENCE CARD..S 7.95 S 

ANALOG COMPUTING-8-blt EXTRA S 8.95 S 

ANALOG COMPUTING-8-blt EXTRA (on disk) S24.95 S 

ANALOG MAGAZINE ON DISK (please specify issue) 51 2.95 S 

SHIPPING AND HANDLING-add S 1 .50 (or each product ordered S 

TOTAL ORDER S 

n Payment Enclosed Charge My D VISA n Master Card 

Card # Exp. 

Signature 

Name 

Address 

City State Zip 

Make cliecks payable to: LFP, Inc. P.O. Box 6706B, Los Angeles, CA 90067. 

Your order will arrive In 4 to 6 weeks — WATCH FOR IT! ZIHYY 

California residents add 6.5% sales tax on all orders except back Issues 



Some Call It 





We named our drive _ _ . 

and aggressive behavior. But it's really % W 
not fair to limit this incredible periph- wl 
eral to just one name. ' ' 

Call it cool. Cool, calm and collected with its 
whisper-quiet fan to prevent heated situations. 
Call it high-class. With refined style, its sleek 
design complements your Atari computer system 
Quite simply, functional elegance under your 
monitor that's designed to adjust to your 
system and lift your sights for easy viewing. 
Call it friendly. Our FAvST Hard Drive wel- 
comes a host of features like dual -w* ^r* 
DMA ports which invite new devices. B M ^ 
Our SCSI expansion is ready when I ■ >* 
you are. And inside, our drive can -^ -A-w^ 
handle a partner like no others 



VfeCalllt 



rive wel- •^•■^ ■*■ ^^ ^^ So, to be q 

-^-|r "I -g->y § carewh 

Hard Drive 



c? The FA-ST drive 
I T does ... the right time, everytime. 
I I Call it durable. Unwavering 
•^•^ dependability from a winning 
design. Only the best components are 
found inside our FA'ST Hard Drive. A hill 
one year warranty and ICD's uncompro- 
mised reputation for quality should say it all. 
Now, don't let the abundance of features 
scare you . . . FA-ST Hard Drives are available 
in all sizes and at prices you can afford. 
So, to be quite honest, we really don't 
§ care what you call our hard drive - 
^TfT 'J^'\ 'IS long as you call for it 
I ^/r"^ today. And get ready for the 
•*■ ▼ ^^ best thing that ever happened 
to your Atari ST. 



Call or write for our free catalog today 

1220 Rock Street ■ Rockford, Illinois 61 101 • (81S) %H-2228 ■ MODI-M; (81S) 968-2229 ■ FAX; (81S) 968-6888 

CIRCLE #108 ON READER SERVICE CARD. „ 



ICD 



